Ответы
Ответ дал:
0
var
a,b: integer;
begin
write('Введите a:');readln(a);
write('Введите b:');readln(b);
if a<>b then writeln((b+2*a)/b)
else writeln(a,' = ',b);
end.
a,b: integer;
begin
write('Введите a:');readln(a);
write('Введите b:');readln(b);
if a<>b then writeln((b+2*a)/b)
else writeln(a,' = ',b);
end.
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
1 год назад
5 лет назад
5 лет назад
7 лет назад