Найти значение переменной к после выполнения программы. program z3_7; var a: array[1..6] of integer; i, k: integer; begin for i≔1 to 6 do a[i]≔(i*9) mod 7; k≔0; for i≔1 to 6 do if a[a[i]]
Var A: array[1..6] of integer; i, k: integer; begin for i:=1 to 6 do A[i]:=(I*9) mod 7; k:=0; for i:=1 to 6 do if A[A[i]]<I then k:=k+1; write(k); end. ответ: k=3
// PascalABC.NET 3.0, сборка 1111 const alpha=['a'..'z']; digits=['0'..'9']; var na,nd,i:integer; s:string; begin na:=0; nd:=0; Write('Введите текст: '); Readln(s); for i:=1 to Length(s) do if s[i] in alpha then Inc(na) else if s[i] in digits then Inc(nd); if na>nd then Writeln('В тексте больше букв') else if na<nd then Writeln('В тексте больше цифр') else Writeln('В тексте букв и цифр поровну') end.
Тестовое решение: Введите текст: the equation 3.546x^2+4.18x-4.1=0 В тексте больше букв
// PascalABC.NET 3.0, сборка 1111 const alpha=['a'..'z']; digits=['0'..'9']; var na,nd,i:integer; s:string; begin na:=0; nd:=0; Write('Введите текст: '); Readln(s); for i:=1 to Length(s) do if s[i] in alpha then Inc(na) else if s[i] in digits then Inc(nd); if na>nd then Writeln('В тексте больше букв') else if na<nd then Writeln('В тексте больше цифр') else Writeln('В тексте букв и цифр поровну') end.
Тестовое решение: Введите текст: the equation 3.546x^2+4.18x-4.1=0 В тексте больше букв
i, k: integer;
begin
for i:=1 to 6 do
A[i]:=(I*9) mod 7;
k:=0;
for i:=1 to 6 do
if A[A[i]]<I then k:=k+1;
write(k);
end.
ответ: k=3