Question

Напишите код программы, в которой запрашивается число, и в результате программа выводит на экран сообщение, делится ли это число на 7.

ПОМОГИТЕ СОЧ!! ДАМ 70 БАЛЛОВ!!!​

Answer 1

Ответ:y
var a,i,n:integer;
begin
writeln('Введите n');
readln(n);
if n>=5 then writeln('Введите n заново');
for i:=1 to 3 do begin
a:=n mod 10;
writeln('Последняя цифра=');
readln(a);
n:=n div 10;

Объяснение:Дано 3-значное число n, n<=5. Написать программу, которая выводит на экран цифры этого числа.
При напичании использовать только цикл for.
Вот начало программы, требуется её окончание