Байт умножь на 1024, а бит 8192
Ответ:
Телефон, компьютер. сканер относится
Var s,t:string; k:integer;
begin
writeln('Введите строку:');
readln(s);
t:=UpperCase(s);
k:=0;
while pos('ЕЛЬ',t)>0 do
begin
delete(t,pos('ЕЛЬ',t),3);
k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
Введите строку:
сосна ель ёлка ЕЛЬ берёза
k = 2
1. Ошибка в коде: после S:=0 нет " ; "
2. Формулировка может быть такой:
Напишите программу, которая для натурального числа N получает сумму его цифр.
Программа на вход получает одно число N - натуральное. На выходе получаем одно число S - сумма цифр числа N.
случай б
если число делется на цело, то пишем ноль, не делеться 1
а не знаю