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

Напишите программу на языке программирования (или составьте алгоритм). дано натуральное число n, целые числа a a an , , 1 2 . определите номер предпоследнего из членов последовательности a a an , , 1 2 кратных 3; если членов, удовлетворяющих данным условиям, нет, то ответом должно быть «нет».

👇
Ответ:
Const n=10;
var a:array[1..n] of integer;
i,k: integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(50);
 write(a[i]:3);
 end;
writeln;
k:=0;
i:=n;
while (i>0)and(k<2) do
 begin
 if a[i] mod 3 = 0 then k:=k+1;
 i:=i-1;
 end;
if k=2 then writeln('Искомый номер = ',i+1)
else writeln('Нет ');
end.

Пример:
22 13 42 48 26 2 18 30 11 31
Искомый номер = 7
4,8(6 оценок)
Ответ:
katjasumigai
katjasumigai
24.09.2020
Код Pascal:

Var
   n,m,i,A:integer;
Begin
Read(n);
m:=0;
i:=0;
For n:= 1 to n do
    Begin
    Read(A);
    if A mod 3 = 0 then
       if n > m then
          Begin
          i:=m;
          m:=n;
          End
    End;
if i = 0 then Write('нет')
else Write(i)
End.
4,4(69 оценок)
Открыть все ответы
Ответ:
Olesya22254
Olesya22254
24.09.2020
Задание 5

program SumSeq;

 

{$APPTYPE CONSOLE}

 

uses

  SysUtils;

//const m:Integer  ;

var

  i, j, m, s:Integer;

  n: array of Integer;

begin

  s:=0;

  Writeln(m);

  Writeln('vvedite m');

  Readln(m);

  SetLength(n,m);

  for i:=0 to m do

    begin

      j:=Random(10);

      if j<5

         then n[i]:=-1*j

         else n[i]:=j;

      write(n[i], ' ')

    end;

  Writeln;

  Writeln('To continue push >>ENTER');

  Readln;

 

  for i:=0 to m do

    begin

      if n[i]<0

        then s:=s+sqr(n[i])

    end;

   writeln('s=',s);

   readln

 

 

  { TODO -oUser -cConsole Main : Insert code here }

end.

4,8(56 оценок)
Ответ:
lidafilinp016fh
lidafilinp016fh
24.09.2020
Задание 4
program months;
{$APPTYPE CONSOLE}
uses  SysUtils;var  i:Integer;begin  Write ('Vvedite nomer mesyaca');  Writeln(i);  Readln(i);
  case i of   1: Writeln ('January-1,2,3,4,5,6,7,8');   2: Writeln ('February-22,23');   3: Writeln ('March-8');   4: Writeln ('April-net');   5: Writeln ('May-1,8,9');   6: Writeln ('June-12');   7: Writeln ('July-net');   8: Writeln ('August-net');   9: Writeln ('September-net');   10:Writeln ('October-net');   11:Writeln ('November-4,5,6');   12:Writeln ('December-net');   end;   Readln
  { TODO -oUser -cConsole Main : Insert code here }end.
Там даты (номера) праздничных дней можете подправить, как вам надо!
4,4(70 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ