Определить минимальное четное число из трех

@Jerigo · Регистрация: 13.12.2010

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

Решите пожалуйста срочно 2 задачи
1) Даны три числа. Определить минимальное четное число среди них.
2) Дано число А . Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить а^2, a^5 , a ^17 за шесть операций.
Заранее спасибо! вопрос жизни и смерти

13.12.2010, 16:40

program naimensee_chetnoe_chislo_iz_treh;
uses crt;
var
a,b,c,e,g,min,f:integer;
begin
read(a,b,c);
if a and b and c div 2=0 then
begin
if a < b then
a:=e;
if e < c then a:=min;
if b < a then
b:=g;
if g < c then b:=min;
if c < a then
c:=f;
if f < b then c:=min;
writeln (min);
end
else writeln ('вводите четные числа');
end.

чуть подправишь и все

@Jerigo 0 / 0 / 0 Регистрация: 13.12.2010 Сообщений: 5
		1
	Определить минимальное четное число из трех 13.12.2010, 14:01. Показов 1703. Ответов 1 Метки нет (Все метки) Решите пожалуйста срочно 2 задачи 1) Даны три числа. Определить минимальное четное число среди них. 2) Дано число А . Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить а^2, a^5 , a ^17 за шесть операций. Заранее спасибо! вопрос жизни и смерти 0

Ivashka
	13.12.2010, 16:40	2
	program naimensee_chetnoe_chislo_iz_treh; uses crt; var a,b,c,e,g,min,f:integer; begin read(a,b,c); if a and b and c div 2=0 then begin if a < b then a:=e; if e < c then a:=min; if b < a then b:=g; if g < c then b:=min; if c < a then c:=f; if f < b then c:=min; writeln (min); end else writeln ('вводите четные числа'); end. чуть подправишь и все