Предмет: Информатика,
автор: filatova1ri
ДАМ 25 БАЛЛОВ! Помогите с Паскалем,пожалуйста!!!
1.Выведите все двузначные числа,в записи которых все цифры одинаковые
2.Выведите все двузначные числа,в записи которых все цифры одинаковы,суммы которых кратны произведению.
Ответы
Автор ответа:
0
1.
var i :integer;
begin
for i:=10 to 99 do
if (i mod 10) = (i div 10) then write(i,' ');
writeln;
end.
2. Условие 2 задачи непонятно. Что чему должно быть кратно?
var i :integer;
begin
for i:=10 to 99 do
if (i mod 10) = (i div 10) then write(i,' ');
writeln;
end.
2. Условие 2 задачи непонятно. Что чему должно быть кратно?
Интересные вопросы
Предмет: Физика,
автор: hsuga
Предмет: Физкультура и спорт,
автор: mariamariaj2008
Предмет: Окружающий мир,
автор: stepenkodara
Предмет: Литература,
автор: sergzoya2010
Предмет: Алгебра,
автор: 14881315