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

Среди всех натуральных четырёхзначных чисел подсчитать количество таких, сумма квадратов цифр, которых кратна двум или трём

👇
Ответ:
xovancku
xovancku
03.06.2020
Uses crt;
var i,k,a,b,c,d,sum: longint;
begin
     for i:=1000 to 9999 do
     begin
          a:=i mod 10;
          b:=i div 1000;
          c:=i div 10 mod 10;
          d:=i mod 1000 div 100;
          sum:=sqr(a)+sqr(b)+sqr(c)+sqr(d);
          if (sum mod 2=0) or (sum mod 3=0) then inc(k);
     end;
     writeln(k);
end.
4,5(19 оценок)
Ответ:
EvilQueen25
EvilQueen25
03.06.2020
У меня получилось 6216

VB. 

Dim i As Integer 
Dim s As Integer
Dim d As Integer

For i = 1000 To 9999       
     s = CInt((CInt(Mid(CStr(i), 1, 1))) ^ 2 + (CInt(Mid(CStr(i), 2, 1))) ^ 2 + (CInt(Mid(CStr(i), 3, 1))) ^ 2 + (CInt(Mid(CStr(i), 4, 1))) ^ 2)     
      If s Mod 2 = 0 Or s Mod 3 = 0 Then d += 1     
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535  
  Next
        MsgBox(d)
4,4(13 оценок)
Открыть все ответы
Ответ:
Tandy
Tandy
03.06.2020

Существует несколько тысяч языков программирования. Мы с вами познакомимся с языком программирования Паскаль, который был разработан в 70 -х годах века Никлаусом Виртом (Швейцария). Своё название этот язык получил в честь французского учёного Блеза Паскаля, известного не только своими достижениями в математике, физике и философии, но и созданием первой в мире механической машины, выполнявшей сложение двух чисел.Язык Паскаль считается универсальным языком программирования, так как он может применяться для записи алгоритмов решения самых разных задач (вычислительных, обработки текстов, построения графических изображений, поиска информации и т.д.).

Он поддерживает процедурный стиль программирования, в соответствии с которым программа представляет собой последовательность операторов, задающих те или иные действия.

4,8(46 оценок)
Ответ:
afinaty4
afinaty4
03.06.2020

1) Документ - это письменное подтверждение какого-либо события или факта

2) Текстовый документ - это представленная на бумажном, электронном или ином материальном носителе информация в текстовой форме

3) Раздел, строка, страница(это не точно)

4) Рассказ, письмо, справочник

5) Раздел - это часть текста, разделы могут включать в себя подразделы.

6) Текст, таблицы, рисунки (зависит это от того, какого типа документ)

7) Удобство редактирования, лёгкость копирования, лёгкость передачи по сетям

8) Электронная книга - это компактное устройство, которое предназначено для отображения текстовой информации, представленной в электронном виде

9) В электронных книгах существует поиск по тексту

10) С текста человек может передать свои мысли, чувства и эмоции

4,7(12 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ