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

Кто шарит в html’е? нужно сделать таблицу. в телеграме напишу о том, что нужно сделать. пишите сюда: dshddhhhshshh

Показать ответ
Ответ:
eviljew1
eviljew1
03.03.2021 16:11
Var  a: array of integer;    
       i, n, x, digit: integer; 
       b1, b2: boolean;
begin  
  readln(n); 
  setlength(a, n); 
  for i := 0 to n - 1 do readln(a[i]); 
  b1 := true; 
  x := 1; 
  digit := x; 
  while b1 do   begin   
    if b2 then digit := x;   
    inc(x);   
    b2 := true;   
    for i := 0 to n - 1 do begin     
      if (abs(a[i]) < x) and (a[i] <> 0) then begin b1 := false;break; end     
      else if a[i] mod x <> 0 then begin b2 := false;break; end   
    end; 
  end; 
  write(digit);
end.
0,0(0 оценок)
Ответ:
Тарана11лет9456
Тарана11лет9456
29.02.2020 12:28
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
  n,k,d:integer;
begin
  k:=0;
  repeat
    Write('Введите натуральное число, 0- завершить: ');
    Read(n);
    if n>0 then begin
      d:=(n mod 100) div 10;
      if (d=4) or (d=6) then Inc(k)
      end
  until n=0;
  Writeln('Искомых чисел - ',k)
end.

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