Составить программу для решения задачи:задай число,определите кратно ли оно10
Составить программу для решения задачи:задай число,определите кратно ли оно10
Гость
Ответ(ы) на вопрос:
Гостьprogram test;
var x: integer;
begin
write('Enter the number: ');
readln(x);
if x mod 10 = 0 then
writeln(x, ' multiple of 10')
else
writeln(x, ' not a multiple of 10');
readln;
end.
Гостьvar k : integer; begin randomize; k := trunc (random (1000)); //Задание числа writeln ('k = ', k); if k mod 10 = 0 then writeln ('Yes') else writeln ('No'); end. Не совсем понял, что значит задать число. Если его вводят с клавиатуры, то строчку k := trunc (random (1000)); заменить на read (k);
Не нашли ответ?
Похожие вопросы