Составить программу в паскале! дан текст. вывести на экран слова, содержащие n букв

211

433

Посмотреть ответы 2

Ответы на вопрос:

alinatitova228

Информатика

4,4(81 оценок)

//pascal abc.net 3.1 сборка 1219 var s: string; n: integer; begin readln(s); readln(n); var ars: =s.split; foreach var i in ars do if length(i)=n then writeln(i); end. пример ввода: ехал грека через реку видит грека в реке рак 5 пример вывода: грека через видит грека

yagyaevaremziep0dlir

Информатика

4,7(60 оценок)

Uses crt; var input: text; a: integer; begin assign(input,'input.txt'); reset(input); while not eof(input) do begin readln(input, a); a: =a+2; writeln(a); end; close(input); end.