Предмет: Информатика,
автор: Снежано4ка
Помогите,пожалуйста, что не так?
Приложения:
Ответы
Автор ответа:
0
точка после end - конец программы
если тебе нужно впихнуть "несколько программ" в одну , то пользуйся процедурами (procedure)
Снежано4ка:
а куда это слово вставить?)
procedure ab;
var
a, b: real;
begin
write('введите два числа ');
read(a, b);
writeln('сумма = ', a + b);
writeln('разность = ', a - b);
writeln('произведение = ', a * b);
writeln('частное = ', a / b);
end;
var
s: real;
begin
ab;
write('введите неотрицательное число ');
readln(s);
write('корень квадратный = ', sqrt(s));
end.
var
a, b: real;
begin
write('введите два числа ');
read(a, b);
writeln('сумма = ', a + b);
writeln('разность = ', a - b);
writeln('произведение = ', a * b);
writeln('частное = ', a / b);
end;
var
s: real;
begin
ab;
write('введите неотрицательное число ');
readln(s);
write('корень квадратный = ', sqrt(s));
end.
Похожие вопросы
Предмет: Физика,
автор: whiteangel7
Предмет: Физика,
автор: whiteangel7
Предмет: Английский язык,
автор: petrosyannelli900
Предмет: Математика,
автор: Алина20010719