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

+ 0 -

Goodwin1234567

25 нояб. 2016 г., 0:13:56 (7 лет назад)

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.

+ 0 -

Queen888

25 нояб. 2016 г., 2:00:18 (7 лет назад)

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