//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
//Задание 12.а.
//Сумма первых n натуральных чисел
var s := 0;
var n := ReadlnInteger('введите n');
for var i := 1 to n do s := s + i;
Println(' Cумма первых', n, '=', s);
//Задание 12.г.
//Сумма всех двузначных
s := 0;
for var i := 10 to 99 do s := s + i;
Println(' Cумма всех двузначных', '=', s);
//Задание 13.
//Получаем 10 сл. чисел, выводим на экран
// и получаем среднее арифметическое
var a := ArrRandom(10, 1, 20);
println(a);
println('Среднее арифметическое ', a.Average)
end.
1) б - магистраль(системную шину)
2) б -сканер, в - клавиатура
3) б - монтор, г - принтер.
4) б - хранение данных
5) б -обработка данных.
Var r,h:integer;
v1,v2:real;
begin
writeln('Ввод радиуса: ');
readln(r);
writeln('Ввод высоты цилиндра: ');
readln(h);
v1:=2*pi*r*h;
v2:=4/3*pi*(r*r);
if v1>v2 then write('Объем цилиндра больше')
else write('Объем шара больше');
end.