Напишите программу для тех, кто не сделал это задание в классе: Напишите программу, которая вычисляет выражение, состоящее из трех чисел и двух
знаков (допускаются знаки «+», «–», «*» и «/»). Выражение вводится как символьная строка,
все числа целые. Операция «/» выполняется как целочисленное деление.
Пример:
Введите выражение:
12*3+45
ответ: 81
1)
begin
var (f, m) := readinteger2;
var s := 4 * sqr(f) - sqrt(25) + 12 * m;
write(s);
end.
2)
begin
var (z, h, n) := readinteger3;
var v := (2 * sqr(z) - 13) / (5 * h - 10) + abs(n - 25);
write(v);
writeln('Выполнил: ВАШЕ ФИО');
end.
Объяснение:
sqr(x) - возводит число х в квадрат;
sqrt(x) - вычисляет квадратный корень из числа x;
abs(x) - вычисляет модуль числа х.
1)
begin // Начало программы
var (f, m) := readinteger2; // Считываем с клавиатуры значения f и m
var s := 4 * sqr(f) - sqrt(25) + 12 * m; // Вычисляем выражение
write(s); // Выводим ответ
end. // Конец программы
2)
begin // Начало программы
var (z, h, n) := readinteger3; // Считываем с клавиатуры значения z, h и n.
var v := (2 * sqr(z) - 13) / (5 * h - 10) + abs(n - 25); // Вычисляем выражение
write(v); // Выводим ответ
writeln('Выполнил: ВАШЕ ФИО'); // Здесь вводите свое ФИО
end. // Конец программы
var p,s: real;
n:integer;
begin
p:=0;//величина прибавки
s:=1000;//первоначальная сумма
n:=0;//число месяцев
while p<=30 do //пока прибавка меньше 30 руб.
begin
p:=s*0.02; //величина месячной прибавки
сумма плюс прибавка за текущий месяц
n:=n+1;//число месяцев
end;
writeln('Ежемесячное увеличение вклада превысит 30 руб через ',n, ' месяцев');
n:=0; //обнуление счетчика месяцев
s:=1000;//восстановление значения первоначального взноса
while s<=1200 do
begin
p:=s*0.02;//Величина месячной прибавки
сумма плюс прибавка за текущий месяц
n:=n+1;//число месяцев
end;
writeln('Величина вклада превысит 1200 руб через ',n,' месяцев');
end.