Помогите решить две задачи с помощью "паскаля"

1) Ученик выучил в первый день 5 английских слов, а последующие дни он учил на два слова больше чем в предыдущие через сколько дней он выучит 250 слов?

2) Вычислить сумму и произведения натурального числа от 1 до 20.

Question

Информатика

Ариадна

31 января, 12:26

Помогите решить две задачи с помощью "паскаля"

1) Ученик выучил в первый день 5 английских слов, а последующие дни он учил на два слова больше чем в предыдущие через сколько дней он выучит 250 слов?

2) Вычислить сумму и произведения натурального числа от 1 до 20.

+3

Ответы (1)

Знаете ответ на вопрос?

Жора · Answer 1

1.

var k, x, y:integer;

begin

x:=5; k:=1;

while y<250 do

begin

x:=x+2;

y:=y+x;

k:=k+1;

end;

writeln (k) ;

end.

2.

var s, p, x:longint;

begin

for x:=1 to 20 do

begin

s:=s+x;

p:=p*x;

end;

writeln ('Сумма=', s,'. Произведение=', p) ;

end.