Если два числа кратны некоторому заданному числу, то большее из этих чисел уменьшить в 2 раза.

@gracia · Регистрация: 19.01.2010

1. Даны два числа. Если эти числа кратны некоторому заданному числу, то большее из этих чисел уменьшить в 2 раза. В противном случае каждое из этих чисел увеличить на сумму их квадратов.

Помогите пожалуйста!!!!

@Жолдас · 19.01.2010, 13:31

Сообщение от gracia

некоторому заданному числу

Сам вводишь? или сразу как постоянная идет?

@Puporev · 19.01.2010, 13:44

Pascal

uses crt;
var a,b,k,c:integer;
begin
clrscr;
writeln('Введите 2 целых числа:');
readln(a,b);
write('Введите число, кратность к которому будем определять k=');
readln(k);
if(a mod k=0)and(b mod k=0)then
 begin
  if a>b then a:=a div 2
  else b:=b div 2;
 end
else
 begin
  c:=a*a+b*b;
  a:=a+c;
  b:=b+c;
 end;
write('a=',a,'  b=',b);
readln
end.

@gracia 0 / 0 / 0 Регистрация: 19.01.2010 Сообщений: 4
		1
	Если два числа кратны некоторому заданному числу, то большее из этих чисел уменьшить в 2 раза. 19.01.2010, 13:26. Показов 2493. Ответов 2 Метки нет (Все метки) 1. Даны два числа. Если эти числа кратны некоторому заданному числу, то большее из этих чисел уменьшить в 2 раза. В противном случае каждое из этих чисел увеличить на сумму их квадратов. Помогите пожалуйста!!!! 0

@Жолдас LegenD 45 / 44 / 15 Регистрация: 10.12.2009 Сообщений: 109
	19.01.2010, 13:31	2
	Сообщение от gracia некоторому заданному числу Сам вводишь? или сразу как постоянная идет? 0

Опции темы

Если два числа кратны некоторому заданному числу, то большее из этих чисел уменьшить в 2 раза.

Решение