99 жаттығу немесе 100 жаттығу қай жаттыгу
Microsoft word- тек редактор
Ответ:
1), 7), 3), 5), 2), 4), 6)
Объяснение:
https://smile.ru/https.txt
var a: array [1..20] of integer;
i:integer;
begin
for i:=1 to 20 do
if i mod 2 = 0 then a[i] := 1 else a[i] := 0;
writeln (a)
end.
var f,g:string;
i:integer;
begin
readln(f);
for i:=1 to length(f)-1 do if (f[i+1]='а') then g:=g+f[i];
writeln(g);
g:='';
for i:=2 to length(f) do if (f[i-1]='а') then g:=g+f[i];
writeln(g);
end.