1. номер ответ 1
2. номер ответ 4
Удачи в учебе!
Var m,n,h,i:longint;begin read(n); h:=2017-1985; h:=h+1; for i:=1 to h do begin m:=n div 100; m:=m * 3; n:=n+m; end; writeln(n);end.
Program mas;
var i,k,sum:integer; a:array [1..1000] of integer;
begin
for i:=1 to 1000 do
begin;
readln(a[i]);
if a[i]=0 then break;
end;
k:=0;
sum:=0;
for i:=1 to 1000 do
begin;
sum:=sum+a[i];
if (a[i] mod 2=0) and (a[i] mod 5=0) and (a[i]<>0) then
k:=k+1;
end;
writeln('summa= ',sum);
writeln('kolichestvo=',k);
readln;
end.
Uses crt ; var n,m:integer; rost,a,b:real; beginwrite('Введите количество учинеков 9а класса: ');readln(n);write('Введите количество учинеков 9б класса: ');readln(m);writeln('Вводите рост каждого из учинеков 9а по очереди');for i:integer :=1 to n do beginwrite(i,': '); read(rost);a:=a+rost;end;a:=a/n; // средний рост 9аwriteln('Вводите рост каждого из учинеков 9б по очереди');for i:integer :=1 to m do beginwrite(i,': '); read(rost);b:=b+rost;end;b:=b/n; // средний рост 9бif a > b then write('Средний рост учеников 9а больше.') else if a < b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.');end.