Question

Помогите, пожалуйста! Использовать mod и div
Программу, которая запрашивает у пользователя 10 чисел и выводит последнее из них (последнее в порядке ввода пользователем), кратное 7.
Не пользуйте, пожалуйста: const, count.

Answer 1

Var a,b,i:integer;
Begin
For i:= 1 to 10 do
begin
WriteLn('Введите ', i,' число');
Readln(a);
if( a mod 7 = 0) and (a<>0)then b:= a;
end;
Writeln(b);
end