ПЖ срочно НАДО ПРАВИЛЬНОЕ РЕШЕНИЕ ДАЮ 70 БАЛОВ!!!! ПАСКАЛЬ А В С
Номер 1.
Даны три числа.Если произведение первых двух чисел делится на третье число, то получить среднее арифметическое данных чисел, в противном случае вывести произведение трёх данных чисел.
Номер 2.
Даны два числа. Если числа не равны, то каждое из чисел увеличить в 2 раза, в противном случае оставить числа без изменения
Номер 1.
Даны три числа.Если произведение первых двух чисел делится на третье число, то получить среднее арифметическое данных чисел, в противном случае вывести произведение трёх данных чисел.
Номер 2.
Даны два числа. Если числа не равны, то каждое из чисел увеличить в 2 раза, в противном случае оставить числа без изменения
More Questions From This User See All
Answers & Comments
#1
var res:real; a:integer; b:integer; c:integer;
begin
readln(a);
readln(b);
readln(c);
if (a*b) mod c = 0 then
begin
res:=(a+b+c)/3;
writeln(res);
end
else
begin
res:=a*b*c;
writeln(res);
end;
end.