Линейная структура на языке <u>Pascal</u>
Нахождение расстояния
var V,S,t:real;
begin
readln(V,t);
S:=V*t;
writeln(S);
end.
Ветвление
var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('+++') else
writeln('---');
readln;
end.
Цикл
var i:integer;
begin
for i:=1 to 5 do writeln(i);
readln;
end.
Пишу на паскале
var cp:real;
i,k,sum:integer;
mass:array[1..4] of integer;
begin
for i:=1 to 4 do
begin
write('mass[',i,']= ');
read(mass[i]);
k:=k+1;
sum:=sum+mass[i];
end;
cp:=sum/k;
writeln('Среднее значение переменных равно ',cp);
end.
<span>
</span>
полное имя стало <span>С:\Год\Неделя\День вот тебе и ответ</span>
программа здесь: http://rghost.ru/43527025
var chislo, summa, proizv:integer;
begin
summa:=0;
proizv:=1;
repeat
Writeln('Input number: ');
Readln(chislo);
if chislo mod 2 = 0 then summa:=summa+chislo;
if chislo <>0 then proizv:=proizv * chislo;
until chislo=0;
Writeln('a) Sum = ', summa);
Writeln('b) Proizvedenie = ', proizv);
readln;
end.