
Феофилакт
5 год назад
Пожалуйста посчитайте в программе Паскаль:даны числа a,b,если остаток при целочисленном деление равен 0. Число а присвоить частное от деление, а иначе число А присвоить произведение чисел А и B
ОТВЕТЫ

Varfolomej
Oct 24, 2020
var a,b:integer;
begin read(a); read(b); if a mod b=0 then a:= a div b else a:=a*b; write(a); end.
begin read(a); read(b); if a mod b=0 then a:= a div b else a:=a*b; write(a); end.
575
Смежные вопросы: