3-2
4-4
5-1
Отметь как лучший, если не лень:) Бобра))
Var a:longint;
Begin
Read(a);
If (a>=1)and(a<=100) then writeln('молодёжь')else
If (a>=101)and(a<=200) then writeln('взрослые')else
If (a>=200)and(a<=250) then writeln('пенсионеры')else
Writeln('-');
End.
Var t:array[1..10] of integer;i,q,k:integer;
begin
for i:=1 to 10 do
read(t[i]);
for i:=1 to 10 do begin
read(q);
k:=k+t[i]*q;
end;
writeln('Общая стоимость: ',k);
end.
Var
i:integer;
s:real;
begin
s:=0;
for i:=1 to 10 do s:=s+i/10;
Writeln(s)
end.
<u>Результат</u>
5.5