Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1) 28
2) 6
3) 5
4) 1
5) 7
6) 27
итого:
1, 6, 5, 2, 3, 4.
program w7w7;
var a: real;
begin
readln (a);
if a< 0 then writeln ('otritsatelnoe chislo');
if a> 0 then writeln ('pologitelnoe chislo');
end.
Популярные вопросы