Даны С1,С2,С3. Определить, какая из переменных является произведением двух других,в случае отсутствия такой переменной напечатать сообщение.

@KateMarmelad · Регистрация: 19.12.2011

Author24 — интернет-сервис помощи студентам

@stimo15 · 19.12.2011, 09:00

Pascal

program task1;
uses crt;
var c1,c2,c3:integer;
begin
clrscr;
write('C1=');
readln(c1);
write('C2=');
readln(c2);
write('C3=');
readln(c3);
if c1=c2*c3 then writeln('c2*c3=c1') else
 if c2=c1*c3 then writeln('c1*c3=c2') else
  if c3=c1*c2 then writeln('c1*c2=c3') else
   writeln('ни одно из чисел не является произведением двух других');
readkey
end.

@KateMarmelad · 19.12.2011, 09:09 **[ТС]**

Спасибо огромное!!!

@KateMarmelad 0 / 0 / 0 Регистрация: 19.12.2011 Сообщений: 4
		1
	Даны С1,С2,С3. Определить, какая из переменных является произведением двух других,в случае отсутствия такой переменной напечатать сообщение. 19.12.2011, 05:35. Показов 3189. Ответов 2 Метки нет (Все метки) Даны С1,С2,С3. Определить, какая из переменных является произведением двух других,в случае отсутствия такой переменной напечатать сообщение. 0

@KateMarmelad 0 / 0 / 0 Регистрация: 19.12.2011 Сообщений: 4
	19.12.2011, 09:09 [ТС]	3
	Спасибо огромное!!! 0

Даны С1,С2,С3. Определить, какая из переменных является произведением двух других,в случае отсутствия такой переменной напечатать сообщение.

Решение