В паскале. Изменить программу так, что бы она находила: 1) сумму четырёх чисел

2) произведения чисел

3) квадрат каждого числа

Question

Информатика

Ваня

14 июля, 17:09

В паскале. Изменить программу так, что бы она находила: 1) сумму четырёх чисел

2) произведения чисел

3) квадрат каждого числа

+4

Ответы (1)

Знаете ответ?

Маргоша · Answer 1

Program SumProizDrob;

Uses crt;

var n:integer;

c, s, pr, dr:real;

begin

clrscr;

write ('Input Numbers:') ;

n:=1; s:=0; pr:=1; dr:=0;

repeat

readln (c) ;

dr:=frac (c) ;

writeln ('drobnaya chast:', dr:4:4) ;

n:=n+1;

if (c>9) and (c<51) then

s:=s+c;

if (c<22) then

pr:=c*pr;

until (c=1000) ;

writeln;

writeln ('Summa = ', s:4:4) ;

writeln ('Proizved=', pr:4:4) ;

readkey;

end.

В паскале. Изменить программу так, что бы она находила: 1) сумму четырёх чисел2) произведения чисел3) квадрат каждого числа

В паскале. Изменить программу так, что бы она находила: 1) сумму четырёх чисел

2) произведения чисел

3) квадрат каждого числа