Категория
Информатика, опубликовано 09.03.2019 12:00

Дана строка, содержащая текст, заканчивающийся точкой. вывести на экран слова, содержащие три буквы.

Ответы

Ответ
Ответ оставил: Гость
Var a,d,e: string;       c: real;       f: integer; begin writeln('введите предложение отделяя каждое слово новой строкой'); readln(a); c: =0; while (a< > b) do begin if length(a) = 3 then c: =c+1; readln(a); end; writeln(c); end.тут один минус , каждое новое слово надо вводить через enter совершенно не используя пробела и точку тоже чнрез enter
Ответ
Ответ оставил: Гость
  var    s : string;     k,l,i,p : integer;     begin  readln (s);   l : = length(s);   k : = 0;         for i : = 1 to l do    begin      if (s[i] < > ' ') and (s[i] < > '.') then      k : = k +1      else      begin        if k = 3 then        begin          for p : = i-3 to i-1 do          write (s[p]);           write (' ');           end;         k : = 0;       end;     end;   end.вводиться строка, считается что все слова разделены пробелом между собой, и строка оканчиватся точкой.
Ответ
Ответ оставил: Гость
Рифма какой то песни что ли?

Ответ
Ответ оставил: Гость
На паскале скажу:
var s,k: integer;
begin
s:=0;
for k:=3 to 10 do
s:=s+13;
write(s);
end.

s = 0
s =0+13 = 13
s=13
все)))

переведу на русский:
переменные s,k целые числа
начало программы
s = 0
k = от 3 до 10
s = 0+13
выводим s
конец программы

программа выводит ответ 13
Ответ
Ответ оставил: Гость
Ответ на рисунке))))))))))


Другие вопросы по информатике

Вопрос
Информатика, опубликовано 09.01.2019 16:01
Вопрос
Информатика, опубликовано 09.01.2019 16:01
✅ Ответов: 3 на вопрос по информатике: Дана строка, содержащая текст, заканчивающийся точкой. вывести на экран слова, содержащие три буквы.... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube