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

Анимация дегіміз не Анимация мен кескіннің айырмашылығы

Показать ответ
Ответ:
ArsenhikBRO
ArsenhikBRO
09.08.2022 11:02
Var
a,str:string;
k,n,i,z,m,j,c,S,x,y,l:integer;
    begin     
            writeln('введите число');
            readln(str);     
                writeln('a ?');     
                readln(a);     
                writeln('z ?');     
                readln(z);   
                writeln('x & y');     
                readln(x,y);     
                n:=length(str);     
                     for i:=1 to n do     
                         begin       
                             if str[i]=a then           
                                   k:=k+1;           
                                   val(str[i],m,j);               
                                        if m mod z=0 then                   
                                           c:=c+1;                   
                                               if str[i]>a then                       
                                                   begin                           
                                                          val(str[i],m,j);                           
                                                          s:=s+m;                       
                                                   end;                     
                                      val(str[i],m,j);                     
                                          if (m=x)or(m=y)then                       
                                               l:=l+1;
                           end;
writeln('k: ',k,'кратное z: ',c,' s: ',s,'  кол-во x,y: ',l);
end.
0,0(0 оценок)
Ответ:
помощьнужнв
помощьнужнв
09.04.2020 05:59
Const 
  N = 15;

var
  mas:array[1..15] of integer;
  i, max1, max2, min, c, d:integer;

begin
  c:=-1;
  max1:=-maxint;
  min:=maxint;
  max2:=-maxint;
  randomize;
  for i:=1 to N do
    mas[i]:=random(101)-50;
  write('Массив: ');
  for i:=1 to N do
    write(mas[i], ' ');
  writeln;
  for i:=1 to N do
  begin
    if (mas[i]>0) AND (mas[i]>max1) then
      max1:=mas[i];
   if (mas[i] mod 2 <> 0) AND (max2<mas[i]) then
   begin
     c:=i;
     max2:=mas[i];
   end;
   if (mas[i] mod 2 <> 0) AND (min>mas[i]) then
   begin
     d:=i;
     min:=mas[i];
   end;
  end;
  writeln('Максимальный положительный элемент: ',max1);
  writeln('Минимальный нечетный элемент: ',min);
  writeln('Максимальный нечетный элемент: ',max2);
  if c<d then
    writeln('Максимальный элемент стоит раньше')
  else
   writeln('Минимальный элемент стоит раньше');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота