Var s:string; k,i:integer;
begin
write('Введите слово: '); readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='е' then k:=k+1;
writeln('В слове ',s,' буква а встречается ',k,' раз');
end.
На целостность данных она не влияет, первый вариант.
уже было такое.. иногда пользуйтесь поиском чтоль.
1) полностью наполнить 5 литровый бидон
2)из 5 литровой в 3х литровую переливаем масло( в 5 литровой остаётся 2)
3)3х литровую в общую ёмкость
4) из 5 литровой в 3х литровую переливаем оставшиеся 2 литра из 5 литровой
5) доверху наполняем 5 литровую
6) из 5 литровой доверху наполняем 3х литровую
7) из трёхлитровой переливаем всё в бидон, в 5ти литровой осталось 4
пишем бидоны(их кол-во), затем проделываем вот что:
8 5 3
8 0 0
3 5 0
3 2 3
6 2 0
6 0 2
1 5 2
1 4 3
4 4 0
ну то есть разливали масло по каждому бидону, пока не получится результат
или так
1. из 8 в 3 (там останется 5)
2. из 3 в 5
3. из 8 в 3 (там останется 2)
4. из 3 в 5 долить 2 (остается 1)
5. из 5 в 8 (там стало 7)
6. из 3 в 5
7. из 8 в 3 (там стало 4)
8. из 3 в 5 (там тоже стало 4)
Program z1;
var x:integer;
begin
for x:=100 to 999 do
if (x mod 11=0)and(x mod 3=0) then
write (x,' ');
end.
Во-первых, там должно стоять D латинское.
7.46D1 = 7.46 × 10¹ = 74.6
Буква D исторически "пришла" из языка Fortran.
Числа в формате с плавающей точкой могли занимать 4 или 8 байт и назывались соответственно числами с одинарной и двойной (Double Precision) точностью. При записи констант в программе, а также при вводе и выводе нужно было как-то различать, какой точности число, поэтому договорились писать вместо цифры 10, за которой следовал показатель степени, букву E (Exponent) для одинарной точности и букву D для двойной.
Когда был создан "младший брат" Фортрана - язык Basic - велосипед изобретать на стали и вместе с синтаксисом для записи формул, в Бейсик перекочевали и буквы E, D для записи чисел с плавающей точкой.
В современных версиях языков записи 7.46D1 и 7.46E1 как правило эквивалентны, поскольку обозначают одно и то же число, а современные процессоры всегда работают в двойной точности.