Синформатикой мне надо придумать чертежник по информатики надо: рисунок и описание типа опустить перо - id277288820230519 от RadaLeon 19.05.2023 23:39

Question

Информатика: Синформатикой мне надо придумать чертежник по информатики надо: рисунок и описание типа опустить перо сдвинь на вектор ( 0: 1 ) и т.п

RadaLeon · Accepted Answer

Программа Вот: Program z1;Var a,b,c,d,k:integer;BeginWriteln( Введите трехзначное число );REadln(a);While a 0 do beginWriteln( Введите трехзначное число );REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 0 then writeln( Сумма цифр- двузначное число ) else writeln ( Нет, сумма цифр не двузначное число );if b*C*D div 100 0 then writeln( Произведение цифр- терхзначное число ) else writeln ( Нет, произведение цифр не трехзначное число число );Writeln ( Введите любое число...

Синформатикой мне надо придумать чертежник по информатики надо: рисунок и описание типа опустить перо сдвинь на вектор ( 0: 1 ) и т.п

MOGZ ответил