Вопрос по информатике:
Помогите пожалуйста, срочно надо.
Заранее большое спасибо)
1) Определите и выведите на экран количество четырехзначных чисел, которые делятся без остатка одновременно на 5 и 11.
2) Найдите и выведите на экран все двузначные числа, у которых при умножения на 2 сумма цифр увеличивается на 5.
- 17.02.2018 19:30
- Информатика
- remove_red_eye 16316
- thumb_up 17
Ответы и объяснения 1
1)var a,b:integer;
begin
b:=0;
for a:=1000 to 9999 do
begin
if (a mod 5=0) and(a mod 11=0)then b:=b+1;
end;
writeln(b);
end.
2)var a,b:integer;
begin
for a:=10 to 99 do
begin
if 2*a<100 then
begin
if (a mod 10 + a div 10+5)=(2*a mod 10 +2*a div 10) then writeln(a);
end;
if 2*a>100 then
begin
b:= 2*a div 10;
if (a mod 10 + a div 10+5)=(2*a mod 10+ b mod 10+ b div 10)then writeln(a);
end;
end;
end.
- 18.02.2018 23:41
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.