Дана программа для исполнителя Редактор: НАЧАЛО ПОКА нашлось (63) ИЛИ нашлось (664) ИЛИ нашлось (6665) - id1434398320220831 от Amid05 31.08.2022 18:51

Question

Информатика: Дана программа для исполнителя Редактор: НАЧАЛО ПОКА нашлось (63) ИЛИ нашлось (664) ИЛИ нашлось (6665) ЕСЛИ нашлось (63) ТО заменить (63, 4) КОНЕЦ ЕСЛИ ЕСЛИ нашлось (664) ТО заменить (664, 5) КОНЕЦ ЕСЛИ ЕСЛИ нашлось (6665) ТО заменить (6665, 3) КОНЕЦ ЕСЛИ КОНЕЦ ПОКА КОНЕЦ Какая строка получится в результате применения приведённой выше программы к строке, в которой первая и последняя цифры – 3, а между ними стоит 120 цифр 6? В ответе запишите полученную строку.

Amid05 · Accepted Answer

Program HardZadacha; Var 1,2,3,4,5,6,7,8,9,0:array [0..5] of integer;        a,i,x:integer; begin Writeln( Введите целое число :   ); Read(a); for i:=1 to 5 do begin if a mod 10 =0 then 0[i]:=0[i]+1; if a mod 10 =1 then 1[i]:=1[i]+1; if a mod 10 =2 then 2[i]:=2[i]+1; if a mod 10 =3 then 3[i]:=3[i]+1; if a mod 10 =4 then 4[i]:=4[i]+1; if a mod 10 =5 then 5[i]:=5[i]+1; if a mod 10 =6 then 6[i]:=6[i]+1; if a mod 10 =7 then 7[i]:=7[i]+1; if a mod 10 =8 then 8[i]:=8[i]+1; if a mod 10 =9 then 9[i]:=9[i]+1;...

MOGZ ответил