Регистрация
HelpinEnglish
24.08.2022 03:07
Информатика
Есть ответ 👍

Дано два різних дійсних числа. Знайдіть
найбільше. Pascal

219
374
Посмотреть ответы 2

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

Nastenkapu
Nastenkapu
4,5(30 оценок)

Программа:

Pascal:

var

 one, two: integer;

begin

 writeln('one = '); readln(one);

 writeln('two = '); readln(two);

 if one > two then writeln(one) else writeln(two);

end.

NastyaMishacheva
NastyaMishacheva
4,6(28 оценок)
Решение на с++: #include< iostream> using namespace std; int main() { int a,b,c,i; cin> > a; cin> > b; cin> > c; if(a< 0) {i++; } if(a< 0) {i++; } if(a< 0) {i++; } cout< < i< < "отрицательных чисел"; return 0; } решение на pascal var a,b,c,i: real; begin readln(a); readln(b); readln(c); if a< 0 then i: =i+1; if b< 0 then i: =i+1; if c< 0 then i: =i+1; writeln(i,  ,"отрицательных чисел") end.

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