Регистрация
sovuhe465
30.08.2021 09:33
Информатика
Есть ответ 👍

Дополнить таблицу. ухо , глаз цвет, кожа , язык вкус, нос ответ

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

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

sholpsholp3owhb3d
sholpsholp3owhb3d
4,6(8 оценок)
Ухо-слух,кожа осязание,нас запах
ЕхоBts97
ЕхоBts97
4,8(55 оценок)
Программа для 1. var   n,b,s: integer; begin   write('введите натуральное число и значение b: ');   read(n,b);   if n> b then writeln('неверно')   else begin       s: =0;       while n> 0 do begin           s: =s+n mod 10;           n: =n div 10       end;       if s mod 2=0 then writeln('верно') else writeln('неверно')   end end. программа для 2. var   k,m,n,b,s: integer; begin   write('введите натуральное число и значения m,n: ');   read(k,m,n);   if k mod n < > 0 then writeln('неверно')   else begin       s: =0;       while k> 0 do begin           s: =s+k mod 10;           k: =k div 10       end;       if s> m then writeln('верно') else writeln('неверно')   end end.

Популярно: Информатика