Прыжок? Ну просто тут не очень понятно! Пришли фото
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var s:=ReadlnString('Введите текст').ToWords;
Writeln('Кол-во равно ',s.Where(x->x[1]='а').Count)
end.
<u><em>Тестовое решение:</em></u>
Введите текст Большой арбуз оказался зеленым, а маленький - красным
Кол-во равно 2
1) 15,6 Мб переводим в гигабайты:
15,6 ÷ 1024 = ~0,015 Гб
2) Находим заполненное:
1,24 + 1,27 + 0,015 = 2,525 Гб
3) Пропорция, чтобы найти количество заполненного в процентах:
16 / 100 = 2,525 / х
Оисюда получаем х = 15,8 %
4) Свободное:
100 - 15,8 = 84,2 %
Var
i,n,m:integer;
k,s:longint;
begin
Write('Задайте количество чисел: '); Read(n);
s:=0; m:=0;
Writeln('Вводите числа...');
for i:=1 to n do
begin
Read(k);
if (k mod 2)=0 then begin s:=s+k*k; Inc(m) end
end;
Writeln('Среднее квадратов четных чисел: ',s/m:0:4)
end.
<em><u>Тестовое решение:</u></em>
Задайте количество чисел: 7
Вводите числа...
36
-18
15
8
14
6
9
Среднее квадратов четных чисел: 383.2000