Регистрация
ukraina3
16.05.2020 04:49
Информатика
Есть ответ 👍

Составьте программу, которая сравнивает два целых числа введенных с клавиатуры - положительное и отрицательное и выводит положительное число на экран

152
157
Посмотреть ответы 2

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

marinapizdec
marinapizdec
4,4(93 оценок)
Var a,b: real; begin readln(a,b); if a< 0 then writeln(a); if b< 0 then writeln (b); end.
kekmanchik
kekmanchik
4,5(76 оценок)
Var i,n: integer; a,b: int64; begin read(n); a: =1; b: =1; if (n=1) then write(a) else if (n> =2) then write(a,', ',b); if (n> 2) then for i: =1 to n-2 do begin b: =b+a; a: =b-a; write(', ',b); end; end.

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