Абвгдеёжзийклмнопрстуфхцчшщъыьэюя
1 шаг - 2010141622611
2 шаг - 1162261410102
3 шаг - йефемииб
Чаще всего встречаются буквы "е" и "и"
Номер буквы "е" - 6
Var a:integer;
begin
repeat
// число, которое надо ввести - 47
writeln('Введите двузначное число');
readln(a);
until a<>47;
writeln('Введенное число ', a);
end.
Да никакой не несёт потому что это не главное главное что 32 человека в классе на уроке физкультуры они построились в 8 шеренг и в каждой шеренге по 4 человека а остальное это уже не главное
program raf105;
var a:array[1..100] of integer;
i,b:integer;
begin
i:=1;
b:=1;
a[1]:=1;
writeln('Вводите 100 чисел по очереди');
for i:=1 to 100 do
begin
readln(a[i]);
if (a[i]<100) and (a[i]>9)
then b:= b+1;
end;
writeln('Количество двузначных чисел: ',b);
end.
<em />
<em>Программа написана на языке PascalABC</em>
1 навести курсор на ошибочно написанный символ
2 кликнуть левой кнопкой мыши
3 delete