Помогите пожалуйста, срочно надо.Заранее большое спасибо)1) Определите и выведите на экран количество четырехзначных чисел, которые делятся без остатка одновременно на 5 и 11.2) Найдите и выведите на экран все двузначные числа,...
Помогите пожалуйста, срочно надо.
Заранее большое спасибо)
1) Определите и выведите на экран количество четырехзначных чисел, которые делятся без остатка одновременно на 5 и 11.
2) Найдите и выведите на экран все двузначные числа, у которых при умножения на 2 сумма цифр увеличивается на 5.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы