Ответы на вопрос:
Впервой находятся все 4-значные числа, а не только симметричные. паскаль авс. program ilgiz98; var i: integer; begin writeln('*** alphaeus is ***'); writeln('*** ok ***'); writeln('программа находит 4-значные числа, которые делятся на 27'); writeln('список таких чисел: '); for i: =1000 to 9999 do if (i mod 27)=0 then writeln(i); end. program ilgiz98; var mass: array [1..20] of integer; i, k, n: integer; begin writeln('*** alphaeus is ***'); writeln('*** ok ***'); writeln('среди элементов массива программа находит числа, которые больше заданного числа n и одновременно кратны 5'); write('введите число n '); readln (n); writeln('*** ***'); k: =0; writeln('массив чисел: '); for i: =1 to 20 do begin mass[i]: =random(1000)-500; writeln(mass[i]); if (mass[i]> n) and ((mass[i] mod 5)=0) then k: =k+1; end; writeln(); writeln('всего найдено ',k,' таких чисел'); end.
Популярно: Информатика
-
vikusya2000115.01.2020 09:55
-
VERLIA14.05.2022 16:28
-
Vladijad28.06.2023 15:29
-
Cricetinae18.04.2022 00:11
-
pepeon1107.01.2022 17:48
-
Данил627027.12.2022 19:24
-
50978886630.09.2022 00:44
-
kazbek613.01.2021 19:00
-
Leprecon109.04.2020 17:52
-
5831012.12.2022 13:50