Var x, p: integer;
begin
x:= 1;
p:=1;
repeat
p:= p*x;
x:= x + 2;
until x<11;
end.
3план анимации 4 подготовка онимации в действ
Var
a: array [1..12] of real; //Массив стоимости
s: real; //сумма
i: integer;
begin
s:= 0;
for i:= 1 to 12 do {12 раз вводим стоимость предмета и прибавляем ее к значению s}
begin
writeln('Введите стоимость предмета');
readln(a[i]);
s:= s + a[i];
end;
writeln('Общая стоимость всех предметов: ', s);
end.
ИНФОРМАТИКА - ЦСКРОТЯМЦФЯ
КОД - ФРЫ
КОМПЬЮТЕР - ФРТПГБМЪО