Чему будет равно значение с переменной c в результате выполнения фрагмента программы a: =125; b: =25 ; c: =12; if a div 25=0 then if a mod 12=0 then c: =b div (a mod c) else c: =a div (b mod c) 1)0; 2)1; 3)12; 4)125

127

182

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

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

котямотя3

Информатика

4,8(70 оценок)

125 div 25=5 - значит, первое условие не выполняется . (иначе) с=125 div (25 mod 12)=125 div 1 =125 тадаам ответ : 4

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