Даны 3 числа найди их сумму произведения и выяснить что больше сумма или произведение

174

212

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

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

lukingrishal

Информатика

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

Var a,b,s,p: integer; begin write('a='); readln(a); write('b='); readln(b); s: =a+b; p: =a*b; if s> p then writeln('сумма больше произведения'); if p> s then writeln('произведение больше суммы'); end. на языке паскаль.

WoRT1

Информатика

4,6(26 оценок)

Var i,k: integer; s: real; a: array[1..7] of real; beginclrscr; k: =0; s: =0; writeln('введите среднюю дневную температуру с понедельника по воскресенье: '); for i: =1 to 7 do begin write(i,'-я: '); readln(a[i]); if a[i]< 0 then k: =1; s: =s+a[i]; end; writeln('средняя температура за неделю составила ',s/7, ' градусов'); if k=1 then writeln('были заморозки'); end.