1. Информатика
  2. Впаскале решите : ) 1.

Впаскале решите : ) 1. в строке слова разделены пробелами. определить на какую букву оканчивается четвертое слово в предложении. 2.дана последовательность слов. напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству: в слове нет повторяющихся букв.

nikitalarin843 nikitalarin843    2   21.05.2019 09:00    4

Ответы
sashasa02 sashasa02  15.06.2020 10:05

1) Pascal ABC.NET

var s:string; p:boolean; i,k:integer;

begin

p:false;

k:=0;

read(s);

for i:=1 to lenth(s) do

begin

if s[i]=' ' then inc(k); 

if k=5 then p:=true else p:=false;

if p then writeln(s[i-1]);

end;

end.

 

вторая задачи без компа сложная, прости, нужно компилить и проверять

 

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
antonishyna1997 antonishyna1997  24.04.2019 02:20
Проверьте программу ! var s: real; a,b,c: longint; begin s: =0; a: =3; b: =1; c: =2; while (a =30) do begin s: =s+(a/b+c^2) a: =a+3 b: =1 c: =c+1 end; writeln(s); end....
gshsjtzjts gshsjtzjts  24.04.2019 02:20
Напишите программу, только используйте цикл. найти сумму квадратов всех целых чисел от a до b (значения a и b вводятся с клавиатуры, b≥a)...
ирт3 ирт3  24.04.2019 02:20
Составит дерево,информатика построй в тетради дерево такой сортировки бусин,при которой все бусины группируются сначала по форме,а затем по цвету.ответь на вопросы: сколько в твоем...
poli36914 poli36914  26.07.2019 19:11
Дано натуральное число n. выяснить, имеются ли среди чисел n, n+1, 2n близнецы, т.е. простые числа, разность между которыми равна. определить процедуру, позволяющую распознать простые...
bosschakalev bosschakalev  26.07.2019 19:11
Свойства алгоритма массовость означает...
AlikhanKazbekov AlikhanKazbekov  26.07.2019 19:11
Сформировать массив случайных чисел в диапазоне от 10 до 20 и округлить значения элементов, по модулю меньших 1...
Daria1378 Daria1378  21.12.2019 19:50
Какое нужно поставить условие отбора в access чтобы выводилось при открывание «введите фамилию»?...
Smekalenok Smekalenok  20.12.2020 09:22
Что предстовляет собой программа?​...
magrim600 magrim600  20.12.2020 09:23
С ПРОГРАММИРОВАНИЕМ Пользователь вводит пример на сложение натуральных чисел произвольной длины (с разным числом слагаемых). а) Определите количество слагаемых в примере. б) Вычислите...
9989744524081 9989744524081  20.12.2020 09:24
УМОЛЯЮ задача SQLИспользуйте таблицу «Счет-фактура», чтобы определить страны, в которых выставлено больше всего счетов. Предоставьте таблицу BillingCountry и Invoices, упорядоченную...

Популярные вопросы