Напишите программу на паскале дано трехзначное число. определить кратна ли сумма его цифр числу а. пример работы программы: входные данные выходные данные 633 no 4 540 yes 2

206

357

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

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

слизеринсязмейка

Информатика

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

Var a,b,c,d,e: longint; begin readln(a); readln(c); d: =d+a mod 10; d: =d+a div 10 mod 10; d: =d+a div 100 mod 10; if d mod c = 0 then writeln('yes') else writeln('no'); end.

Kirill4421

Информатика

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

Ох, ну блок-схема вот: в ромбе: n> 0, далее + и в прямоугольнике n: = div 4, или n< =0, в прямоугольнике n: =n*5, далее конец var n: integer; read(n); write('напишите n'); begin if n> 0 then n: =n div 4 else n: =n*5; read(n); end; end. могла с составлением программы ошибиться.