Дано трехзначное число. Составить программу, определяющую есть ли среди цифр числа
одинаковые. паскаль 8 класс
Подсказка: Для решения данной задачи необходимо сначала найти все цифры трехзначного числа X по
отдельности.
Например,
запись нахождения 1 цифры числа может быть такой:
C1:=X div 100 (если X=458, то в С1 запишется цифра 4)
запись нахождения 3 цифры числа может быть такой:
C3:=X mod 10 (если X=458, то в С3 запишется цифра 8)
После нахождения всех цифр числа по отдельности необходимо сравнить их, используя условный оператор.
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.
1: Opera
2: Opera Software
3: Персональные компьютера и телефоны на системах: Microsoft Windows, macOS, Linux, Android и iOS
4: Встроенный VPN, блокировщик рекламы, удобный интерфейс, тонкая настройка, функция видео во всплывающем окне.
5: При отсутствии настройки от пользователя возможна сильная нагрузка на оперативную память.
6:Разработан в 1994 году группой исследователей из норвежской компании Telenor. С 1995 года — продукт компании Opera Software, образованной авторами первой версии браузера. Написан на языке C++