Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста! Дам 20 б
1) Написать программу, которая попросит ввести два числа, а затем спросит, что с ними нужно сделать: сложить или перемножить. Результат вывести на экран.
2) Школьники Иванов и Петров за время летних каникул заработали определённую сумму. Кто их них заработал большую сумму? Определить средний заработок. (написать программу)

Ответ оставил Гость

Var a, b: integer;
var c: string;
begin
writeln(Введите 1 число.);
readln(a);
writeln(Введите 2 число.);
readln(b);
writeln(Знак операции.);
readln(c);
if c=* then writeln(a*b);
if c=/ then writeln(a/b);
if c=- then writeln(a-b);
if c=+ then writeln(a+b);
end.
2 ЗАДАЧА 
var a, b: real;
begin
writeln(Зарабаток Пети:);
readln(a);
writeln(Зарабаток Петрова:);
readln(b);
if a>b then writeln(Петя заработал больше Петрова.)
else if a=b then writeln(Петров и Петя заработали одинаково.)
else
writeln(Петров заработал больше Пети.);
writeln(Среднее: , (a+b)/2);
end.