Регистрация
gogoja
24.07.2020 03:26
Информатика
Есть ответ 👍

Дано целое число. проверить: является ли данное число отрицательным двузначным числом кратным десяти. в pascalabc

155
156
Посмотреть ответы 2

Ответы на вопрос:

максим1720
максим1720
4,4(41 оценок)

begin

  var a : = -10;

  print((a div 10 in [-) and (a mod 10 = 0))

end.

Киса11111112
Киса11111112
4,5(43 оценок)
Const n=8; var a: array[1..n] of integer; b,i: integer; begin randomize; for i: =1 to n do    begin   a[i]: =random(20)+1;   write(a[i]: 3);   end; writeln; for i: =1 to n div 2 do   begin   b: =a[i]; a[i]: =a[n-i+1]; a[n-i+1]: =b   end; for i: =1 to n do write(a[i]: 3); writeln; end. пример:   9   5   6 11 13   4 16 18   18 16   4 13 11   6   5   9

Популярно: Информатика