Вопрос по информатике:
В паскале. Изменить программу так, что бы она находила: 1)сумму четырёх чисел
2)произведения чисел
3)квадрат каждого числа
Пожаловаться
- 27.04.2016 14:12
- Информатика
- remove_red_eye 17202
- thumb_up 41
Ответы и объяснения 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.
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.
Пожаловаться
- 28.04.2016 16:16
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы