Оператор цикла с параметром

Слайд 2

Найти сумму первых десяти четных чисел program summa; uses crt; var

Найти сумму первых десяти четных чисел

program summa;
uses crt;
var i:integer;s:real;
const n=10;
begin s:=0;

for i:=1 to n do s:=s+i*2;
writeln(‘s=‘,s);
readln;
end.
Слайд 3

Составить программу на TPascal

Составить программу на TPascal

Слайд 4

Найти сумму n любых чисел. program summa; uses crt; var i:integer;s,x:real;

Найти сумму n любых чисел.

program summa;
uses crt;
var i:integer;s,x:real;
const n=4;
begin s:=0;
for

i:=1 to n do
begin write(‘x=‘);
readln(x);
s:=s+x;
end;
writeln(‘s=‘,s);
readln;
end.
Слайд 5

Составить программу на TPascal

Составить программу на TPascal