Задать вопрос
22 августа, 05:14

Составить программу, которая запрашивает целое число, не равное нулю, сообщает, положительное оно или отрицательное. и при этом положительное число уменьшает в 2 раза, а отрицательное возводит в квадрат.

+2
Ответы (1)
  1. 22 августа, 07:21
    0
    Var a:integer;

    begin

    writeln ('a=') ;

    readln (a) ;

    if (a>0) then writeln ('cislo polojitelinoe', a/2) else

    writeln ('cislo otritatelinoie', sqr (a)) ;

    readln;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составить программу, которая запрашивает целое число, не равное нулю, сообщает, положительное оно или отрицательное. и при этом ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы