Регистрация
kabirova2356
11.09.2022 10:51
Информатика
Есть ответ 👍

Дано число, дать характеристику числа: а) положительное или отрицательное б)четное или нечетное

120
254
Посмотреть ответы 2

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

SoniaSS09
SoniaSS09
4,4(68 оценок)
Если pascal, то вот: program z1; var a: integer; begin write('введите число: '); read(a); if (a> 0) then writeln('данное число положительное') else writeln('данное число отрицательное'); if (a mod 2=0) then writeln('данное число чётное') else writeln('данное число нечётное'); end.
mascamasa
mascamasa
4,8(75 оценок)

program ssd;

  uses crt,graph;

  var   a,a1,a2,a3: integer;

  begin

  clrscr;

  writeln('введите трехзначное число');

  readln(a);

  a1: = a mod 10;

  a2: =(a div 10) mod 10;

  a3: = a div 100;

  writeln('      ',a1,a2,a3);

  readkey;

end.

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