Чему будет равно значение переменной s после выполнения фрагмента программы
s := 0;
x := 3;
while x < 16 do begin
x := x + 4;
s := s + 2;
end;
254
305
Ответы на вопрос:
1)
3 < 16
x:= 3 + 4 = 7
s:= 0 + 2 = 2
2)
7 < 16
x:= 7 + 4 = 11
s:= 2 + 2 = 4
3)
11 < 16
x:= 11 + 4 = 15
s:= 4 + 2 = 6
4)
15 < 16
x:= 15 + 4 = 19
s:= 6 + 2 = 8
5)
19 < 16
end
Переменная s после выполнения алгоритма приняла значение 8
// pascalabc.net 3.0, сборка 1066 var s, wd: string; n, pt: integer; begin write('введите строку: '); readln(s); n : = length(s); pt : = 1; repeat // пропускаем все символы до первого непробельного while pt < = n do if s[pt] = ' ' then inc(pt) else break; if pt < = n then begin // выделяем очередное слово wd : = ''; while pt < = n do if s[pt] < > ' ' then begin wd : = wd + s[pt]; inc(pt) end else break; if (wd < > '') and (lowcase(wd[1]) in ['м'..'я']) then writeln(wd) end until pt > n; end. тестовое решение: введите строку: **а роза упала на лапу азора ** роза упала на а вот так версия 3.0 позволяет решить "по-современному": // pascalabc.net 3.0, сборка 1066 begin var s: =readstring('введите строку: '); writeln('результат: ',s.towords(' ').where(x-> x[1] in ['м'..'я'])) end. тестовое решение: введите строку: **а роза упала на лапу азора ** результат: [роза,упала,на]
Популярно: Информатика
-
SophiakoSheleva566606.07.2022 21:05
-
avorob21.10.2020 04:59
-
mvrlin10.05.2021 21:21
-
sanyaleleckov26.06.2023 07:00
-
Doshik13119.04.2023 03:44
-
rusikov97210.09.2022 06:09
-
LevMuronov09.02.2023 13:28
-
polycononova2002.08.2021 17:19
-
SsssDddddddd26.07.2022 02:38
-
02Milka0223.08.2022 16:25