Регистрация
bogdan1001b
18.02.2023 01:49
Информатика
Есть ответ 👍

Найти сумму 10 натуральных чисел (использовать цикл while).

194
404
Посмотреть ответы 2

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

donerkebab
donerkebab
4,6(86 оценок)
Var y,i: integer; begin while i< =10 do begin y: =y+i; i: =i+1; end; write(y); end.
arteommartiashev
arteommartiashev
4,8(27 оценок)
Var a,b,c: integer; begin writeln('введите возраст светланы: '); readln(a); writeln('введите возраст карины: '); readln(b); writeln('введите возраст марины: '); readln(c); if ((a> b) and (a> c)) then writeln('светлана: ', a) else if ((b> c) and (b> a)) then writeln('карина: ', b) else if ((c> a) and (c> b)) then writeln('марина: ', c); if ((a> c) and (c> b)) then writeln('марина: ', c) else if((c> b) and (b> a)) then writeln('карина: ', b) else if ((b> a) and (a> c)) then writeln('светлана: ', a); if ((a< b) and (a< c)) then writeln('светлана: ', a) else if ((b< a) and (b< c)) then writeln('карина: ', b) else if ((c< a) and (c< b)) then writeln('марина: ', c); end.

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