Ответы
Ответ дал:
0
var s:string; l:integer;
begin
writeln('Введите строку:');
readln(s);
l:=length(s);
if l mod 2 = 0
then writeln('Количество символов в строке = ',l,' четно')
else writeln('Количество символов в строке = ',l,' нечетно');
end.
Пример:
Введите строку:
Количество
Количество символов в строке = 10 четно
begin
writeln('Введите строку:');
readln(s);
l:=length(s);
if l mod 2 = 0
then writeln('Количество символов в строке = ',l,' четно')
else writeln('Количество символов в строке = ',l,' нечетно');
end.
Пример:
Введите строку:
Количество
Количество символов в строке = 10 четно
Ответ дал:
0
L маленькая или I большая в l:integer
Ответ дал:
0
В паскале маленькие и большие буквы не различаются (если это имена переменных)
Ответ дал:
0
Да я знаю..
Ответ дал:
0
Тогда в чем вопрос? Можно писать l, можно L
Вас заинтересует
2 года назад
8 лет назад
10 лет назад
10 лет назад
10 лет назад