Pascal abc составьте программу, которая определяет на какую букву заканчивается третье слово в предложении.
198
398
Ответы на вопрос:
Var a: string; b,c: integer; begin readln (a) while c< 3 do begin b : =b+1; if (a[b] = (" ")) or a[b] = (" , ")) then c: =c+1; end; writeln (a[b-1]); end.
Популярно: Информатика
-
danilcs0223.08.2021 10:55
-
MorEnSo24.04.2020 19:39
-
ybibisheva05.07.2021 06:54
-
alexanikulina201.01.2022 16:11
-
ппсомо365721.04.2021 20:53
-
генадийпетрович25.11.2022 03:15
-
valentinaproneValya09.05.2022 17:56
-
velvis205004.10.2020 11:56
-
lizon39222.05.2022 21:35
-
aza5423.01.2020 09:54