Рассматривается множество целых чисел, принадлежащих числовому отрезку [2055; 9414], которые удовлетворяют следующим условиям: − сумма последних двух цифр не равна 5;
− не кратны 7, 5 и 41.
Найдите минимальное из таких чисел и последние 3 цифры произведения всех таких чисел. ответ запишите через пробел.
Примечание: последние 3 цифры произведения всех таких чисел означает, что умножаются 3 последних цифры каждого числа между собой, а для ответа берутся 3 последние цифры конечного произведения соответственно. Например, произведение, допустим Р, и в каждом проходе цикла умножаем его на число i и берёшь только три последние цифры.
//Составьте программу, которая подсчитывает и выводит среднюю температуру по всем дням,
//когда были заморозки. Гарантируется, что хотя бы в один день были заморозки
var i,x,y : shortint;
s : real;
t : array [1..30] of shortint;
begin
randomize;
For i:=1 to 30 do
begin
t[i]:=random (31)-10; //заполняем таблицу случайным образом (в диапазоне от -10 до 20)
writeln (i,' ',t[i]); //строка не обязательная просто позволяет увидеть заполненный массив
end;
for i:=1 to 30 do
begin
if t[i]<0 then
begin
x:=x+t[i];
y:=y+1;
end;
end;
s:=x/y;
writeln ('Средняя температура по дням, когда были заморозки ',s:0:2);
end.
1)
Program dasf;
var b,c,i: integer;
A: Array[1..100] of real;
D: Array[1..100] of real;
begin
Writeln('Введите размерность массива D');
readln(b);
For i:=1 to b do
begin
Writeln('Введите элемент массива №',i);
readln(D[i]);
end;
Writeln('Массив А:');
For i:=1 to b do
begin
If i mod 2=1 then A[i]:=5+(D[i]*D[i])
else A[i]:=D[i]/i;
Writeln(A[i]);
end;
end.
2)
Program fgsadg;
var i,b,x,y,z,k,t: integer;
begin
Writeln('Введите сколько чисел будет использоваться:');
readln(b);
Writeln('Введите х:');
readln(x);
Writeln('Введите число №',1);
readln(z);
k:=0;
For i:=2 to b do
begin
Writeln('Введите число №',i);
readln(y);
If z+y=x then k:=k+1;
z:=y;
end;
Writeln(k);
end.
Если что-то не будет работать - отпиши, мог кое-что удалить случайно при переносе.