Есть ответ 👍

Чему будет равно значение переменной s после выполнения фрагмента программы

s := 0;
x := 3;
while x < 16 do begin
x := x + 4;
s := s + 2;
end;

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

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


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

nikaa5522
4,8(43 оценок)

// 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. тестовое решение: введите строку:   **а роза      упала    на      лапу азора      ** результат: [роза,упала,на]

Популярно: Информатика