Мне нужно составить программу определяющую являетьли ли число а положительным

uikyky uikyky    2   15.09.2019 20:00    0

Ответы
FRAIS11 FRAIS11  07.10.2020 18:16
Var
  a: real;
begin
  Read(a);
  if (a > 0) then
    Writeln('Число положительное')
  else
    Writeln('Число не положительное')
end.
ПОКАЗАТЬ ОТВЕТЫ
kosenkoanton72 kosenkoanton72  07.10.2020 18:16
Program Usloviya;
var a:integer;
begin
readln (a);
if (a>0) then write('Число положительное') ;
end. 
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика