На слайде презентации может быть размещена текстовая информация, медиафайлы (фото, видео, звук), диаграммы, таблицы.
var
r, L, S, V: Real;
begin
Write ('Введите радиус: ');
ReadLn (r);
L := 2 * Pi * r;
S := Pi * r * r;
V := 4 / 3 * Pi * Power (r, 3);
Writeln ('Длина окружности = ', L);
Writeln ('Площадь круга = ', S);
Writeln ('Объем шара = ', V);
end;
Тело цикла будет выполнено 31 раз. Следовательно переменная s станет равна 93
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.MatchValues('[Нн]е').Count.Println
end.