М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
irinarassohina1
irinarassohina1
14.01.2022 07:51 •  Информатика

Дано четырехзначное число n. определить, делится ли это число на все свои цифры?

👇
Ответ:
likaoolika
likaoolika
14.01.2022
Var a,a1,a2,a3,a4:integer;
begin
writeln('a=');
readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
writeln('цифры: ',a1:2,a2:2,a3:2,a4:2);
if (a mod a1=0)and(a mod a2=0)and(a mod a3=0)and(a mod a4=0)
  then writeln('Введенное число делится на все свои цифры')
  else writeln('Введенное число не делится на все свои цифры');
end.
4,6(8 оценок)
Открыть все ответы
Ответ:
timati06blacstar
timati06blacstar
14.01.2022

 

 

 

   

 Достоинства исполнителя Робот 

 

1) Скорость  

 

 

 Недостатки исполнителя Робот

 

 

 

1) Неправильный перевод предложения. Т. к  при буквальном переводе слово в слово теряется смысл. (особенно касается жаргонных английских фраз и идиом ).

 

 

Достоинства исполнителя Человек

 

1) Возможность самостоятельно корректировать и дополнять заданный алгоритм

 2) Прочитав первое предложение на шаге 2 переводить его не тупо пословно, а учитывая  структуру предложения и тип употребляемых слов(идиомы ,американизмы и.т.д) .

3) Более точная передача смысла фразы 

 

 

 

 Недостатки  исполнителя Человек. 

 1) Значительно более низкая скорость перевода.

2) Необходимость в перерывах ввиду естественных потребностей (сон,еда,туалет).

 

 

 

 

 

4,8(57 оценок)
Ответ:
syngalox420
syngalox420
14.01.2022
1.
Begin
 Writeln('Привет!');
 Writeln('Меня зовут Саша!');
 Writeln('Я студентка 2-ого курса начального образования!');
 Writeln('Я будущий учитель младших классов...');
end.

2.
var n:Integer;
Begin
 Read(n);
 Writeln('Квадрат =',n*n);
end.

3.
var a:Integer;
Begin
 Read(a);
 Writeln('S = ',a*a);
 Writeln('P = ',4*a);
end.

4. var n:Integer;
   Begin
     Read(n);
     Writeln(n+10);
  end.

5. var a,b:Integer;
   Begin
     Read(a,b);
     Writeln(' S = ',a*b);
     Writeln(' P = ',2*(a+b));
   end.

6. var a,b,c:Integer;
   Begin
     Read(a,b,c);
     Writeln('Сума = ',a+b+c);
   end.
4,8(11 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ