begin writeln('Введите первое число '); readln(a); writeln('Введите второе число '); readln(b); writeln('Введите третье число '); readln(c); writeln('Произведение этих чисел равно '); writeln(a * b * c); writeln('Среднее арифметическое этих чисел равно '); writeln((a + b + c) / 3); end.
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
№1
begin var (a,k):=ReadInteger2('Укажите количество рабочих и служащих:'); Writeln('Заработок работника равен ',624750/(a+k)) end.
Пример Укажите количество рабочих и служащих: 15 6 Заработок работника равен 29750
№2
begin var y:=ReadReal('Укажите скорость ходьбы, км/ч:'); var x:=ReadReal('Мальчик пробежал, км: '); Writeln('Затрачено времени на бег, ч: ',x/(3*y):0:2) end.
Пример Укажите скорость ходьбы, км/ч: 5.2 Мальчик пробежал, км: 12 Затрачено времени на бег, ч: 0.77
a, b, c: real;
begin
writeln('Введите первое число ');
readln(a);
writeln('Введите второе число ');
readln(b);
writeln('Введите третье число ');
readln(c);
writeln('Произведение этих чисел равно ');
writeln(a * b * c);
writeln('Среднее арифметическое этих чисел равно ');
writeln((a + b + c) / 3);
end.