Информатика 9класс программирование. Написать программу подсчета количества букв в слове. На основе программы:
Program slovo;
var
s,s1:string;
i:integer;
begin
writeln('vvеdite slovo');
readln(s);
s1:='';
for i:=length(s) downto 1 do
begin
s1:=s1+s[i];
writeln(s1);
end;
if s1=s then writeln('DA')
else writeln('NET');
end.
Информатика 9класс программирование. Написать программу подсчета количества букв в слове. На основе программы:
Program slovo;
var
s,s1:string;
i:integer;
begin
writeln('vvеdite slovo');
readln(s);
s1:='';
for i:=length(s) downto 1 do
begin
s1:=s1+s[i];
writeln(s1);
end;
if s1=s then writeln('DA')
else writeln('NET');
end.
Program slovo;
var
s,s1:string;
i:integer;
begin
writeln('vvеdite slovo');
readln(s);
s1:='';
for i:=length(s) downto 1 do
begin
s1:=s1+s[i];
writeln(s1);
end;
if s1=s then writeln('DA')
else writeln('NET');
end.
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Программа подсчета количества букв в слове:
Program slovo;
var
s:string;
i,count:integer;
begin
count := 0;
writeln('Введите слово');
readln(s);
for i:=1 to length(s) do
begin
if (s[i] >= 'a') and (s[i] <= 'z') or (s[i] >= 'A') and (s[i] <= 'Z') then
count := count + 1;
end;
writeln('Количество букв в слове: ', count);
end.
Программа считает только буквы введенного слова и выводит их количество.