В файле C:\name.txt записаны в столбик имена. Сколько имен в файле начинается и заканчивается на одну и ту же букву.
Введем обозначения:
Т – файловая переменная
n – элемент файла (одна строка - имя)
d - количество букв в имени
К - количетво имен, которые начинеаются и заканчиваются на одну и ту же букву
program n5;
var T: text; n: string;
d, K: integer;
begin
assign (__, );
(T);
while not (eof (f)) do
begin
readLn (__ , __);// читаем из файла целую строку (одно имя)
d:=length (n);// находим кол-во символов в строке (кол-во букв в cлове)
If n[1] = n[d] then ;// если первая буква имени ( n[1] ) совпадает с последней
// буквой (n[d]), то увеличиваем К на единицу.
end;
close (___);// закрываем файл
// выводим ответ на экран
end.
program raf105;
var
A: real;
x: integer;
begin
write('Введите число в битах: ');
readln(A);
writeln('1. Байт');
writeln('2. Килобайт');
writeln('3. Магабайт');
writeln('4. Гигабайт');
write('Введите номер единицы, в которую нужно перевести: ');
readln(x);
if x=1 then writeln(A/8,' байт')
else if x=2 then writeln(A/8000,' кб.')
else if x=3 then writeln(A/8000000,' мб.')
else if x=4 then writeln(A/8000000000,' гб.')
else writeln('Ошибка');
end.
PascalABC 3.4.2