Turbo Pascal:
Program readInteger;
Uses CRT;
Var s:char; z:Integer;
Begin
ClrScr;
WriteLn('Введите числа:');
repeat
If (KeyPressed = true) than
begin
S:=ReadKey
z:=z+1;
End;
Until s ="0";
Write('Вы ввели ',z,' чисел!');
ReadLn;
End.
Ответ:
Петличный микрофон? Если ты про этот
Ответ:
Объяснение:
можно составить 12 кодов т.к. каждая согласная может находиться только в трёх местах, а гласные только в двух. Из чего следует что можно составить только эти 12 кодов:
САВЕТ, САТЕВ, ТАВЕС, ТАСЕВ, ВАТЕС, ВАСЕТ, СЕТАВ, СЕВАТ, ТЕСАВ, ТЕВАС, ВЕТАС, ВЕСАТ.
1,4 слайд установить переключение по щелчку
2,3 установить переключение по времени и задать время в секундах
подстрока S0 вставляется в строку S в позицию номер 5
результат: ExamABCple