Склавиатуры вводится четырехзначное число найдите сумму цифр в этом числе кратных трем

270

317

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

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

1234567311

Информатика

4,5(87 оценок)

Program z1; var n,a,b,c,d: integer; beginreadln(n); a: =n div 1000; b: =(n div 100) - (n div 1000)*10; c: =(n div 10)- (n div 100)*10; d: =(n mod 10); n: =0; if (a mod 3)=0 then n: =n+a; if (b mod 3)=0 then n: =n+b; if (c mod 3)=0 then n: =n+c; if (d mod 3)=0 then n: =n+d; writeln(n); end.

kalashnikovale2

Информатика

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

Терминатор(начало)-> данные(ввод n)-> функция(нахождение суммы всех отр. чисел)-> терминатор(конец) условие? условие_верно: условие_ложно если надо более подробно, то вместо функции: условие(число отрицательное? добавить в сумму-> данные(сложить_отр._число): пропустить)-> данные(n_декремент)-> условие(если n> 0? повторить_всю_эту_муть_что_я_написал_в_этой_прошлой строке_и_позапрошлой строках: терм.(конец))