составить программу для решения задачи:задай число,определите кратно ли оно10

2

Ответы и объяснения

2013-01-20T19:06:29+04:00

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.

2013-01-20T19:07:32+04:00

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);