Var i, n, k, c, e: integer; s: string; begin write('введите целое положительное число: '); readln(n); str(n, s); c : = 0; for i : = 1 to length(s) do begin val(s[i], k, e); c : = c + k end; if c mod 2 = 0 then writeln('сумма цифр числа четная') else writeln('сумма цифр числа нечетная') end. тестовое решение: введите целое положительное число: 534643 сумма цифр числа нечетная введите целое положительное число: 23524523 сумма цифр числа четная
Спасибо
Ответ дал: Гость
program xxx; var i, j, k, n, p, s : integer; a : array [1..20] of integer; begin write ('введите количество инверсий -'); readln(k); write ('введите количество ламп -'); readln(n); for i: =1 to n do a[i]: =0; for i: =1 to k do begin write ('введите инверсию p-'); readln(p); j: =p; while j< =n do begin if a[j]=0 then a[j]: =1 else a[j]: =0; j: =j+p end end; s: =0; for i: =1 to n do if a[i]=1 then s: =s+1; write ('ламп горит -', s); readlnend.
Ответ дал: Гость
если что-то будет не так - напиши, испралю. у меня простог нет возможности проверить, выполняется
program string_7; var s: string; k,l,i: integer; begin write('введите строку: '); readln(s); k: =0; l: =0; for i: =1 to length(s) dobegin if s[i]='н' then k: =k+1; if s[i]='м' then l: =l+1end; writeln('н=',k); writeln('м=',l); if k> l then writeln ('больше букв н'); if k< l thenwriteln ('больше букв м'); if (k = 0) and (l = 0) thenwriteln ('таких букв нет'); end.
так будет элсе выкидывало бы что букв н больше, если бы ни м ни н не встретилось))
Популярные вопросы