Номер 8.
Ответ: 10111000 - расшифровка НОС
Номер 9.
АБЕКАБВКАБВГКАВКАВГКАГКАГЖКАДЖК
Ответ: 8
10.
Сайт будет такой
http://gov.org/txt.net
Варианты ответа не видны, но если подставить, то можно составить ответ
Var
i,a:integer;
ch:set of char;
n:string;
Begin
Write('Введите число ');
Readln(n);
ch:=['0'..'9'];
for i:= 1 to length(n) do
if n[i] in ch then a:=a+1;
case a of
1:Write('В числе ',a,' цифра');
2..4:Write('В числе ',a,' цифры')
else Write('В числе ',a,' цифр');
End;
<span>End. </span>
Информатика?
Попробуй нажать;
Ctrl+Alt+Home