4. известно, что x > 100. укажите наименьшее такое (т. е. большее 100) число x, при вводе которого алгоритм печатает 40. var x, l, m: integer; begin readln(x); l : = x-10; m : = x+30; while l < > m do if l > m then l : = l - m else m : = m – l; writeln(m); end.
243
323
Ответы на вопрос:
Label metka; var x, l, m: integer; begin for var i: =100 to 300 do begin x: =i ; l : = x-10; m : = x+30; while l < > m do if l > m then l : = l - m else m : = m - l; if (m=40) then begin println(x); goto metka; end; end; metka: end.
program helloworld;
var i: integer;
begin
for i: =33 to 555 do
begin
if i mod 13 = 0 then writeln(i);
end;
end.
результат:
39 52 65 78 91 104 117 130 143 156 169 182 195 208 221 234 247 260 273 286 299 312 325 338 351 364 377 390 403 416 429 442 455 468 481 494 507 520 533 546Популярно: Информатика
-
ildar646421.10.2020 14:42
-
violetakoshtura02.09.2020 08:43
-
fhehneeggbvfs05.06.2022 17:49
-
sophiaukraineoyy0ey21.10.2021 14:55
-
alievaaytan1709.09.2020 11:57
-
asiadancer05.05.2023 22:11
-
AcidSmile16.02.2022 23:55
-
Or00312.10.2021 19:26
-
ponterez17.04.2023 23:15
-
Крад31.05.2023 07:52