Var a,p:integer;
begin
p:=1;
repeat
readln(a);
if (a>=-10) and (a<=10) then
p:=p*a;
until (a>10) or (a<-10);
write(p)<span>
end.</span>
var year,percent,insum,cursum:integer;
begin
read(year, percent, insum);
cursum:=(percent*insum)/100*year+insum;
write(cursum);
end.
Входный данный должны быть типа
2 15 100
Выходные будут
130
Вопросы в приват
Program n1;
var sum,a: real;
i: integer;
begin
i:=0;
sum:=0;
while i<10 do
begin
readln(a);
sum:=sum+a;
i:=i+1;
end;
write(sum);
end.
<span>1. Если это Паскаль, то каждый оператор должен оканчиваться точкой с запятой. Тут ни один так не оканчивается.
2. Прочие ошибки.
a. В=А - должен быть знак присваивания, т.е. B:=A;
b. S+2=4.25 - должен быть знак присваивания := вместо =
Кроме этого, в левой части оператора присваивания должно быть имя, а не выражение.
c. R=A : B-1.78 - </span><span><span>должен быть знак присваивания := вместо =
Кроме этого, знак ":" не может встречаться в арифметическом выражении.
</span>d. If a then b:=0 - верен, если a имеет тип boolean
e. A:=D:=C - кратное присваивание недопустимо
f. If a=0 then b:=0 - верен, если а имеет числовой тип.</span>