Вопрос по информатике:
Найдите и выведите на экран все трехзначные числа, которые делятся без остатка на 11 и имеют в своей записи хотя бы одну цифру 3.
- 09.05.2018 18:51
- Информатика
- remove_red_eye 13559
- thumb_up 36
Ответы и объяснения 1
Const n=10;
var a:array[1..n]of integer;
i,k,l,aa: integer;
begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if (a[i] mod 11 =0) and (a[i]99) then
begin
k:=0;
aa:=a[i];
for i:=1 to 3 do
begin
l:=aa mod 10;
if l=3 then k:=1;
aa:=aa div 10;
end;
if k=1 then writeln(a[i]);
end;
end.
- 01.01.1970 00:00
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.