Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5. Также нужна блок-схема
P.S. Можно, пожалуйста, с хоть какими-нибудь пояснениями
Answers & Comments
odmil385
Var a:array[1..52] of byte; n,i:byte; begin readln(n);//считать сколько будет чисел for i:=1 to n do readln(a[i]);//считывает числа for i:= 1 to n do if (a[i]mod 7=1)or(a[i]mod 7=2)or(a[i]mod 7=5) then writeln(a[i]);//если у числа остаток 1 2 или 5 тогда она его выводит end.
Answers & Comments
n,i:byte;
begin
readln(n);//считать сколько будет чисел
for i:=1 to n do
readln(a[i]);//считывает числа
for i:= 1 to n do
if (a[i]mod 7=1)or(a[i]mod 7=2)or(a[i]mod 7=5) then writeln(a[i]);//если у числа остаток 1 2 или 5 тогда она его выводит
end.