1задача. Сумма цифр в 4-зн. числе 1) Начало 2) Ввод 4-значного числа N. Проверка, что 999 < N < 10000. 3) Вычисление отдельных цифр. (Далее [A] - это целая часть числа A). 3.1) A4 = [N/1000] (тысячи) 3.2) A3 = [ (N - A4*1000)/100) ] (сотни) 3.3) A2 = [ (N Mod 100)/10 ] (десятки, N Mod 100 - это остаток от деления N на 100) 3.4) A1 = N Mod 10 (единицы) 4) Сумма S = A1+A2+A3+A4 5) Вывод S 6) Конец.
2 задача. Двузначное число палиндром - это число, которое читается с конца и сначала одинаково. Для двузначных чисел это значит, что число состоит из двух одинаковых цифр. 1) Начало 2) Цикл по N от 10 до 99 3) Вычисление цифр. 3.1) A2 = [N/10] (десятки) 3.2) A1 = N Mod 10 (единицы) 4) Если A1 = A2, то Вывод N. 5) Конец цикла по N 6) Конец.
var i:integer; s:string; const glas=['Й','У','Е','Ы','А','О','Э','Я','И','Ю']; beginwrite ('Vvedite predlohenie: '); readln (s); i:=1; while i<=length (s) do begin if ((i=1) or (s[i-1]=' ')) and (s[i] in glas) then begin while not ((s[i] in ['.',',',';','!','?',':',' '])) and (i<=length (s)) do begin write (s[i]); i:=i+1; end; writeln; end; i:=i+1; end; readln; end.
