даны целые числа А В Составить программку которая выводит квадрат суммы

Даны целые числа А В Составить программу которая выводит квадрат суммы чисел если число А делится на число В без остатка в неприятном случае - квадрат числа

Задать свой вопрос
Тершуков Колек
Питон пойдет?
1 ответ
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 blt;gt;0 then begin write(SQR(a)) end; end. 
Игорь Шаперин
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт