Напишите код программы, в которой запрашивается число, и в результате программа выводит на экран сообщение, делится ли это число на 7.
ПОМОГИТЕ СОЧ!! ДАМ 70 БАЛЛОВ!!!
Ответы
Ответ дал:
0
Ответ: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.
Вот начало программы, требуется её окончание
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.
Вот начало программы, требуется её окончание
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад