Ответы
Ответ:
Program Kalkulator
const
H = 'Hello';
PI = 3.14;
var
A :real;
B :real;
r :real;
Del :real;
Name :String;
Begin
writeln('Введите ваше имя');
readln(Name);
writeln(H, ', ', Name,'!');
repeat
writeln('Какую операцию вы хотите выполнить?');
writeln('Умножить - 1, поделить - 2, сложить - 3, вычитать - 4, площадь круга - 5, квадратный корень - 6, конец - 7');
readln(del);
If del > 7 then writeln('Выбери другой вариант, "умник"');
If del = 1 then
begin
writeln('Введите a');
readln(A);
writeln('Введите b');
readln(B);
writeln('Ответ: ', A*B);
end;
If del = 2 then
begin
writeln('Введите a');
readln(A);
writeln('Введите b');
readln(B);
writeln('Ответ: ', A/B);
end;
If del = 3 then
begin
writeln('Введите a');
readln(A);
writeln('Введите b');
readln(B);
writeln('Ответ: ', A+B);
end;
If del = 4 then
begin
writeln('Введите a');
readln(A);
writeln('Введите b');
readln(B);
writeln('Ответ: ', A-B);
end;
If del = 5 then
begin
writeln('Введите r');
readln(r);
writeln('Ответ: ', r*PI*PI);
end;
If del = 6 then
begin
writeln('Введите a');
readln(A);
writeln('Ответ: ', sqrt(a));
end;
Until del = 7;
If del = 7 then writeln('Удачи!');
end.
Объяснение:
Это калькулятор на паскале (Внутри него, а не отдельное приложение. Запускается в программе по Паскалю)
Надеюсь я тебя правильно понял.