ввести в 4 колонки все трехзначные четные числа, которые делятся без
Ввести в 4 колонки все трехзначные четные числа, которые делятся без остатка на сумму первой и заключительной числа
Задать свой вопрос1 ответ
Ponkrashin Zhenek
Трехзначные четные числа могут быть получены перечислением трехзначных чисел от 100 до 998 через одно, т.е. 100, 102, 104, ... - это проще и прытче, чем брать каждое и инспектировать его на четность.
// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программка не работает, обновите версию!
begin
var s:=Range(100,998,2).Where(t-gt;t mod (t div 100 + t mod 10)=0);
var i:=0;
foreach var n in s do begin
Print(n); i+=1;
if i=4 then begin i:=0; Writeln end
end;
if ilt;gt;0 then Writeln;
end.
Итог
100 102 108 110
120 126 130 132
140 150 160 162
170 180 190 192
196 198 200 204
210 212 216 220
230 232 234 240
250 252 256 260
264 270 272 280
290 292 294 296
300 306 308 330
360 364 390 396
400 402 408 420
424 432 440 460
462 464 468 480
492 500 504 506
510 520 530 532
540 550 560 570
580 590 594 598
600 630 632 636
658 660 672 690
696 700 702 704
770 792 800 804
826 840 848 864
880 896 900 902
918 990
// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программка не работает, обновите версию!
begin
var s:=Range(100,998,2).Where(t-gt;t mod (t div 100 + t mod 10)=0);
var i:=0;
foreach var n in s do begin
Print(n); i+=1;
if i=4 then begin i:=0; Writeln end
end;
if ilt;gt;0 then Writeln;
end.
Итог
100 102 108 110
120 126 130 132
140 150 160 162
170 180 190 192
196 198 200 204
210 212 216 220
230 232 234 240
250 252 256 260
264 270 272 280
290 292 294 296
300 306 308 330
360 364 390 396
400 402 408 420
424 432 440 460
462 464 468 480
492 500 504 506
510 520 530 532
540 550 560 570
580 590 594 598
600 630 632 636
658 660 672 690
696 700 702 704
770 792 800 804
826 840 848 864
880 896 900 902
918 990
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов