Помогите решить задачу, Паскаль

lalka · 30.05.2014, 21:51

Нужен код программы!
Задача: В каких двузначных числах удвоенная сумма цифр равна их произведению паскаль.

Евгений · 30.05.2014, 23:05

function SR(ai: byte): boolean;
var t1,t2: byte;
begin
t1:= ai mod 10;
t2:= ai div 10;
if (2*(t1+t2))=t1*t2 then SR:= true
else SR:= false;
end;
var i: byte;
begin
for i:=10 to 99 do
if SR(i) then Write(i:4);
Readln;
end.

lalka · 03.06.2014, 00:46

Спасибо

30.05.2014, 21:51	#1 (permalink)
lalka Member Регистрация: 12.02.2014 Сообщений: 12 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите решить задачу, Паскаль Нужен код программы! Задача: В каких двузначных числах удвоенная сумма цифр равна их произведению паскаль.

30.05.2014, 23:05	#2 (permalink)
Евгений Member Регистрация: 31.03.2010 Адрес: Тульская область Сообщений: 1,309 Сказал(а) спасибо: 11 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 13090	function SR(ai: byte): boolean; var t1,t2: byte; begin t1:= ai mod 10; t2:= ai div 10; if (2(t1+t2))=t1t2 then SR:= true else SR:= false; end; var i: byte; begin for i:=10 to 99 do if SR(i) then Write(i:4); Readln; end.

03.06.2014, 00:46	#3 (permalink)
lalka Member Регистрация: 12.02.2014 Сообщений: 12 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070