даны целые числа А В Составить программу которая выводит квадрат суммы чисел если число А делится на число В без остатка в противном случае - квадрат числа
Ответы
Ответ дал:
0
Vara,b:integer;begin a:=ReadInteger('Введите a'); b:=ReadInteger('Введите b'); if a mod b=0 then begin write(Sqr(a+b)) end; if a mod b<>0 then begin write(SQR(a)) end; end.
Ответ дал:
0
Var
a,b:integer;
begin
a:=ReadInteger('Введите a');
b:=ReadInteger('Введите b');
if a mod b=0 then begin
write(Sqr(a+b))
end;
if a mod b<>0 then begin
write(SQR(a))
end;
end.
a,b:integer;
begin
a:=ReadInteger('Введите a');
b:=ReadInteger('Введите b');
if a mod b=0 then begin
write(Sqr(a+b))
end;
if a mod b<>0 then begin
write(SQR(a))
end;
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад