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

Решить 8 класса по информатике . написать программу, которая определяет, принадлежит ли заданное число интервалу от 10 до 30.

👇
Ответ:
Fgrtpo
Fgrtpo
28.06.2022
A = int(input())if a>=10 and a<=30:    print('YES')else:    print('NO')
4,8(59 оценок)
Открыть все ответы
Ответ:
nadyushasukhan
nadyushasukhan
28.06.2022
Const n=10;
var a,d:array[1..n] of integer;
k,i,j,t:integer; 
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(900)+100;
 write(a[i]:4);
 end;
writeln;
writeln('Количество делителей:');
for i:=1 to n do begin
 k:=2;
 for j:=2 to a[i] div 2 do
  if a[i] mod j = 0 then k:=k+1;
  d[i]:=k;
  write(d[i]:4);
 end;
writeln;
for i:=1 to n-1 do
  for j:=1 to n-i do
    if d[j]>d[j+1] then
    begin 
    t:=d[j]; d[j]:=d[j+1]; d[j+1]:=t;
    t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t;
    end;
Writeln('Отсортированный массив:');
for i:=1 to n do Write(a[i],' ');
Writeln
end.

Пример:
 882 524 890 505 911 792 772 458 507 368
Количество делителей:
  18   6   8   4   2  24   6   4   6  10
Отсортированный массив:
911 505 458 524 772 507 890 368 882 792 
4,7(67 оценок)
Ответ:
Const dlin = 100;
var b:array[1..dlin,1..2] of integer;
      i,j,x:integer;
begin
writeln('Исходный массив:');
for i:=1 to dlin do
 begin
  b[i,1]:=random(800)+100;
  write(b[i,1],' ');
  b[i,2]:=b[i,1] mod 10 + b[i,1] div 100 + b[i,1] div 10 mod 10;
 end;
writeln;

for i:=1 to dlin-1 do
  for j:=dlin-1 downto i do
     if b[j,2]>b[j+1,2] then
     begin
      x:=b[j,2]; b[j,2]:=b[j+1,2]; b[j+1,2]:=x;
      x:=b[j,1]; b[j,1]:=b[j+1,1]; b[j+1,1]:=x;
     end;

writeln('Отсортированный массив:');
for i:=1 to dlin do
   write(b[i,1],' ');

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