Трехзначные четные числа могут быть получены перечислением трехзначных чисел от 100 до 998 через одно, т.е. 100, 102, 104, ... - это проще и быстрее, чем брать каждое и проверять его на четность.
// PascalABC.NET 3.3, сборка 1607 от 31.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=Range(100,998,2).Where(t->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 i<>0 then Writeln; end.
#include <iostream>
#include <Windows.h>
using namespace std;
void main()
{
setlocale(LC_ALL, "Russian");
float a, b, c;
Start:
system("CLS");
cout << "Введите 3 действительных числа:\n";
cin >> a;
cin >> b;
cin >> c;
if (a>b && a>c)
cout << "Вот что получится если удвоить ваши числа: " <<a*2<< b*2<<c*2<<"\n";
else
cout << "Заменяю ваши числа обсолютными значениями: " <<abs(a)<<abs(b)<<abs(c)<< "\n";
Sleep(5000);
goto Start;
}
// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=Range(100,998,2).Where(t->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 i<>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