1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var current, past, sum: real;
i, n: integer;
begin
current : = 10;
for i : = 1 to 10 do begin
writeln(i, ' ', current);
past : = current;
current : = current * 1.1;
end;
current : = 10; sum : = 0;
write('n = ');
read(n);
for i : = 1 to n do begin
sum : = sum + current;
past : = current;
current : = current * 1.1;
end;
writeln('за ', n, ' дней: ', sum);
end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var current, past, sum: real;
i, n: integer;
begin
current : = 10;
for i : = 1 to 10 do begin
writeln(i, ' ', current);
past : = current;
current : = current * 1.1;
end;
current : = 10; sum : = 0;
write('n = ');
read(n);
for i : = 1 to n do begin
sum : = sum + current;
past : = current;
current : = current * 1.1;
end;
writeln('за ', n, ' дней: ', sum);
end.
var a, b, c,d,e,f,g : integer;
begin
for var i := 1 to 28 do begin
readln(a);
if a = 2 then b := b + 1
else if a = 3 then c := c + 1
else if a = 4 then d := d + 1
else if a = 5 then e := e + 1;
if i <= 14 then f := f + a
else g := g + a;
end;
f := round(f / 14);
g := round(g / 14);
writeln('Число двоек : ',b);
writeln('Число троек : ',c);
writeln('Число четвёрок : ',d);
writeln('Число пятёрок : ',e);
writeln('Число двоек : ',a);
writeln('Средний балл среди мальчиков : ', f);
writeln('Средний балл среди девочек :', g);
end.