Предмет: Информатика,
автор: ayumi2407
составьте программу,выводящую на экран все трехзначные натуральные числа, делящиеся на 17 без остатка
Ответы
Автор ответа:
0
1)
var k:integer;
begin
for k:=100 to 999 do
if k mod 17 = 0 then writeln(k);
end.
2)
var k: integer;
begin
k:=100;
while k mod 17 <> 0 do inc(k);
while k<999 do
begin
writeln(k);
k:=k+17;
end;
end.
Решение:
102
119
136
153
...
952
969
986
var k:integer;
begin
for k:=100 to 999 do
if k mod 17 = 0 then writeln(k);
end.
2)
var k: integer;
begin
k:=100;
while k mod 17 <> 0 do inc(k);
while k<999 do
begin
writeln(k);
k:=k+17;
end;
end.
Решение:
102
119
136
153
...
952
969
986
Автор ответа:
0
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Range(100,999).Where(n->(n mod 17=0)).Print
end.
Результат выполнения программы:
102 119 136 153 170 187 204 221 238 255 272 289 306 323 340 357 374 391 408 425 442 459 476 493 510 527 544 561 578 595 612 629 646 663 680 697 714 731 748 765 782 799 816 833 850 867 884 901 918 935 952 969 986
begin
Range(100,999).Where(n->(n mod 17=0)).Print
end.
Результат выполнения программы:
102 119 136 153 170 187 204 221 238 255 272 289 306 323 340 357 374 391 408 425 442 459 476 493 510 527 544 561 578 595 612 629 646 663 680 697 714 731 748 765 782 799 816 833 850 867 884 901 918 935 952 969 986
Похожие вопросы
Предмет: Информатика,
автор: valentina6176
Предмет: Математика,
автор: tujh56544
Предмет: Английский язык,
автор: bibigyl1969
Предмет: Математика,
автор: paul96