Найдите выведите на экран все трехзначные числа,кратные 20,сумма цифр которых равны сумме цифр частного от деления их на 20 может так uses crt; var b,c,d,t,i,s,k: integer; o: real; begin s: =0; for k: =100 to 1000000000 do begin b: =k mod 10; c: =k div 100; d: =(k mod 100)div 10; t: =d+b+c; o: =(b div 20)+(c div 20)+(d div 20); if ((k mod 20)=0) and (t=o) then s: =s+1; end; writeln('s=',s); end.
Макс228336
1
21.05.2019 13:00
1
Другие вопросы по теме Информатика
arinaaaaaaaaa0
23.05.2019 07:10
RU2017
23.05.2019 07:10
Karumi1
23.05.2019 07:10
ulialepsha
23.05.2019 07:10
liubovbalan
13.09.2019 00:10
Akbota0504
13.09.2019 00:10
akonya24
13.09.2019 00:10
minyaaaaaaaaaaaaaaa
13.09.2019 00:10
Популярные вопросы
- Кнам в окно попал красивый лучик засветилось все оно словно яркий...
2 - Переведите текст: cornwall great britain may, 17th dear katie,...
3 - 5причин почему быть гражданином мира...
3 - Фонетический разбор слова сёмка мне...
3 - Для гидроксидов записать формулы соответсвующих оксидов.назовите...
2 - Раскрой скобки выражения -(2а-b+c) умоляю...
1 - Представьте в виде десятичной дроби 7/16...
3 - Напишите сочинение на тему: что сделаю я для людей...
2 - :на площадке играли 7 девочек и 2 мальчика. сумма лет всех играющих...
2 - Выпишите грамматическую основу предложения 16. (l6)картин нигде...
2
Ваш алгорим не оптимален, совершенно незачем делать "for k:=100 to 1000000000 do", т.к. по условию необходимо проверить лишь трехзначные числа.
uses crt;
var a,b,k:integer;
begin
for k:=100 to 999 do
if k mod 20 =0
then begin
a:= k div 20;
b:= k div 10;
if ((a mod 10) + (a div 10)) = ((k mod 10) + (b mod 10) + (a div 10)) then writeln(k);
end;
end.