1. Напишите программу, определяющую сумму S=1+2+3+4 ... + 99

2. Напишите программу, определяющую произведение

P=1234 ... 10

На Паскаль

За ранее благодарна

Question

Информатика

Римуся

2 марта, 16:17

1. Напишите программу, определяющую сумму S=1+2+3+4 ... + 99

2. Напишите программу, определяющую произведение

P=1234 ... 10

На Паскаль

За ранее благодарна

+1

Ответы (1)

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

Нора · Answer 1

Var

i, s:integer;

begin

s:=0;

for i:=1 to 99 do s:=s+i;

Writeln ('S=', s)

end.

var

i:integer;

p:longint;

begin

p:=1;

for i:=1 to 10 do p:=p*i;

Writeln ('P=', p)

end.

1. Напишите программу, определяющую сумму S=1+2+3+4 ... + 992. Напишите программу, определяющую произведениеP=1*2*3*4 ... * 10На ПаскальЗа ранее благодарна

1. Напишите программу, определяющую сумму S=1+2+3+4 ... + 99

2. Напишите программу, определяющую произведение

P=1234 ... 10

На Паскаль

За ранее благодарна