Программа Вот: 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 ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами
просмотр телепередачи - ввод информации; игра в шахматы - обработка информации; устное решение примера по математике - обработка и вывод информации; заучивать стихотворение - сохранение информации; игра на компьютере - ввод, вывод и обработка информации
Является ли покраска стен примером действия с информацией? Да конечно является. Мы постоянно считываем стену на наличие непокрашенных кусков. Постоянно передаем информацию что надо красить, как надо красить, как не делать ошибок, Смотрим закончилась ли краска на кисти, не капает ли краска на пол и тд. Разве что тут нет хранения информации, а все остальные действия присутствуют
Примеры действий которые не относятся к действию с информацией - только полное бездействие, например сон без сновидений, кома и то нельзя поручиться что ничего в это время не происходит Для компьютера это когда он выключен - тогда точно не происходит никаких информационных операций. Даже во время простоя идет хотя бы отсчет времени и считывание собственного состояния
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
