Выбери верный ответ.
Программа, выводящая 6 раз слово "Russia".
var i : integer;
begin
for i := 1 downto 6
writeln ('Russia ');
readln;
end.
var i : integer;
begin
for i := 1 to 6 do
writeln ('Russia ');
readln;
end.
var i : integer;
begin
i := 1 to 6 do
writeln ('Russia ');
readln;
end.
var i : integer;
begin
for i := 1 to 6 do
readln;
end.
202
399
Ответы на вопрос:
Var n : longint; function check(a : longint) : boolean; var m : array[0..9] of byte; i : byte; begin for i: =0 to 9 do m[i]: =0; while a> 0 do begin inc(m[a mod 10]); a: =a div 10; end; check: =false; for i: =0 to 9 do if m[i]> =4 then check: =true; end; begin n: =0; while (n< 1000000) or (n> 9999999) do readln(n); if check(n) then writeln('yes') else writeln('no'); end.
Популярно: Информатика
-
кирик7408.07.2020 07:11
-
leon8830.11.2022 17:46
-
HelpinEnglish27.09.2020 23:34
-
нвчббисмт04.03.2020 07:42
-
МенязовутКатяЗвога29.03.2023 09:24
-
natashalife02.11.2020 15:15
-
шамшода22.10.2021 06:12
-
DPAKOSHKA06.10.2021 03:03
-
sukalovan014.07.2021 02:59
-
tashbaeva20109.03.2022 11:08