Ответы на вопрос:
program a;
var
c: char;
s: integer;
begin
s: =0;
while not eoln do //пока не конец строки
begin
read(c);
if c=' ' then
s: =s+1;
end;
write(s+1);
end.
Популярно: Информатика
-
Nastromanova25.06.2023 22:51
-
Saetre200303.11.2020 21:47
-
regionagustin03.05.2020 04:42
-
pavel27127.10.2020 03:11
-
muckanvicktoria15.08.2022 19:39
-
ДавыдоваЮлия567820.04.2021 18:34
-
torshindanya29.08.2022 06:47
-
Генгстер02.03.2022 14:00
-
кира65031.07.2022 22:15
-
romanovanelya08.11.2020 09:56