Регистрация
ОпятьДЗ
19.02.2023 01:00
Информатика
Есть ответ 👍

Дано два вещественных числа a,b.найти сумму,разность,произведение,частность с команды ввода и выводим результаты следущим образом

136
354
Посмотреть ответы 2

Ответы на вопрос:

ambarik
ambarik
4,6(19 оценок)
Program calculator; var a,c: real; b: char; begin write('введите первое число: '); readln (a); write('введите знак. ( + - сложение, - - вычитание, / - деление, * - умножение): '); readln (b); write('введите второе число: '); readln (c); case b of '+': a: =a+c; '-': a: =a-c; '*': a: =a*c; '/': a: =a/c; end; write ('результат: ',a); end.
muratovsergej
muratovsergej
4,5(46 оценок)
Var i: integer; s: string; begin readln(s); i : = pos('мама', s);   if i > 0 then   begin    delete(s, i, 4);     insert('папа', s, i);   end; writeln(s); end.

Популярно: Информатика