(тема паскаль)надо решить две задачи:

1)найти сумму четных чисел на интервале от 15 до 31.

2) ввести на экран значение функции y=2x+3 если х изменяется от 1 до 10 с шагом 1

1

Ответы и объяснения

2013-11-11T17:17:20+04:00
1)uses crt;
var i,s:integer;
begin
s:=0;
for i:=15 to 31 do
if (i mod 2=0) then s:=s+i;
writeln(s);
end.
2)uses crt;
var x,y:integer;
begin
for x:=1 to 10 do
begin
y:=2*x+3;
writeln(y);
end;
end.