Данны 3 числа найти сумму 1 и 3 числа и произведения 1 и 2 числа
СРОЧНО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
5 КЛАСС ТЕМА ЛИНЕЙНЫЕ ПРОГРАММЫ
И ПОНЯТНЕЙ ПИШИТЕ
Ответы
Ответ дал:
0
begin
var
a1, a2, a3 : integer;
writeln ('Введите первое число'); readln (a1);
writeln ('Введите второе число'); readln (a2);
writeln ('Введите третье число');readln (a3);
writeln ('Сумма= ',a1+a3);
writeln ('Произведение= ',a1*a2);
end.
var
a1, a2, a3 : integer;
writeln ('Введите первое число'); readln (a1);
writeln ('Введите второе число'); readln (a2);
writeln ('Введите третье число');readln (a3);
writeln ('Сумма= ',a1+a3);
writeln ('Произведение= ',a1*a2);
end.
Приложения:
pogorelyelisei:
ЧТО ПИСАТЬ В СКОБКАХ СКАЖИТЕ!!
ПОН
Зачем Вам что-то писать, если код уже готов?
ВСМЫСЛИ?
МНЕ ЧТО 5 РАЗ WRITELN ПИСАТЬ
И что?
И ТО ПЯТЬ РАЗ ПИСАТЬ???
Можно 2 раза написать.
begin
var
a1, a2, a3 : integer;
readln (a1);
readln (a2);
readln (a3);
writeln (a1+a3);
writeln (a1*a2);
end.
var
a1, a2, a3 : integer;
readln (a1);
readln (a2);
readln (a3);
writeln (a1+a3);
writeln (a1*a2);
end.
ВСЕ ТАК ПОН СПС
Похожие вопросы
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад