В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
vitalyrtss
vitalyrtss
27.06.2021 18:37 •  Информатика

Дано трехзначное число. Составить программу, определяющую есть ли среди цифр числа
одинаковые. паскаль 8 класс
Подсказка: Для решения данной задачи необходимо сначала найти все цифры трехзначного числа X по
отдельности.
Например,
запись нахождения 1 цифры числа может быть такой:
C1:=X div 100 (если X=458, то в С1 запишется цифра 4)
запись нахождения 3 цифры числа может быть такой:
C3:=X mod 10 (если X=458, то в С3 запишется цифра 8)
После нахождения всех цифр числа по отдельности необходимо сравнить их, используя условный оператор.

Показать ответ
Ответ:
Filindenis
Filindenis
20.03.2021 01:38

1:

var i,n,a,s: integer;

begin

   s:=0;

   write('Введите количество чисел: '); readln(n);

   for i := 1 to n do begin

       write('Введите ', i,'-е число: '); readln(a);

       s:=s+a;

   end;

   write('Сумма введённых чисел равна: ', s);

end.

2:

var i,n,s: integer;

begin

   n:=50;

   s:=0;

   for i := 1 to n-1 do begin

       if i mod 2 = 0 then s:=s+i;

   end;

   write('Сумма положительных чётных чисел меньше ', n, ' равна: ', s);

end.

3.

var i,n: integer;

   s: real;

begin

   n := 20;

   s := 0;

   for i := 1 to n-1 do begin

       s := s + i / (n-1) ;

   end;

   write('Среднее арифметическое всех положительных чисел меньше ', n, ' равна: ', s:0:2);

end.

0,0(0 оценок)
Ответ:

1: Opera

2: Opera Software

3: Персональные компьютера и телефоны на системах:  Microsoft Windows, macOS, Linux, Android и iOS

4: Встроенный VPN, блокировщик рекламы, удобный интерфейс, тонкая настройка, функция видео во всплывающем окне.

5: При отсутствии настройки от пользователя возможна сильная нагрузка на оперативную память.

6:Разработан в 1994 году группой исследователей из норвежской компании Telenor. С 1995 года — продукт компании Opera Software, образованной авторами первой версии браузера. Написан на языке C++

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота