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

Снаписанием программы в pascal. напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 5. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 5. количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число – сумму чисел, кратных 5.

👇
Ответ:
cccggg93
cccggg93
21.07.2021
Var
  n, sum, i, a: integer;
begin
  read(n);
  sum = 0;
  for i := 1 to n do
  begin
    read(a);
    if (a mod 5 = 0) then
      sum := sum + a;
  end;
  write(sum);
end.
4,7(39 оценок)
Открыть все ответы
Ответ:
1
var
   i,k:integer;
   a,b:array[1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
  begin
  a[i]:=random(-10,10);
  write(a[i]:3)
  end;
for i:=1 to 10 do
  begin
  if a[i]<0 then
    begin
    k:=k+1;
    b[k]:=a[i]
    end
  end;
for i:=1 to 10 do
  begin
  if a[i]>=0 then
    begin
    k:=k+1;
    b[k]:=a[i]
    end
  end;
writeln;
writeln('Преобразованный массив:');
for i:=1 to 10 do write(b[i]:3)
end.

2.
var i,j,k,n,x,p:integer;
a,b:array of integer;
f:boolean;
begin
write('Сколько будет чисел: ');
readln(n);
SetLength(a, n);
for i:=1 to n do
  begin
  f:=false;
  write('Введите число: ');
  readln(x);
  for j:=0 to n-1 do
     if x=a[j] then f:=true;
     if f=false then
        begin
        a[k]:=x;
        k:=k+1;
        end
  end;
SetLength(b, k);
for i:=0 to k-1 do  b[i]:=a[i];
for i:= 0 to k-1 do
     for j := 0 to k-1 do
        begin
        if b[i] < b[j] then
           begin
           p := b[i];
           b[i] := b[j];
           b[j] := p
         end
    end;
writeln('Отсортированный массив:');
for i:=0 to k-1 do write(b[i]:3)
end.

2.1
var
  i,j,k,n,x,p:integer;
  a:array[1..1000] of integer;
  f:boolean;
begin
write('Сколько будет чисел: ');
readln(n);
k:=1;
for i:=1 to n do
   begin
   f:=false;
   write('Введите число: ');
   readln(x);
   for j:=1 to n do
      if x=a[j] then f:=true;
      if f=false then
         begin
         a[k]:=x;
         k:=k+1;
         end
   end;
for i:=1 to k-1 do
     for j:=1 to k-1 do
     begin
        if a[i] < a[j] then
           begin
           p:= a[i];
           a[i]:= a[j];
           a[j]:= p
           end
     end;
writeln('Отсортированный массив:');
for i:=1 to k-1 do write(a[i]:3)
end.
4,4(26 оценок)
Ответ:
Песатель
Песатель
21.07.2021
1) Разбиваем 32-битный код на 4 группы по 8 цифр и переводим каждую группу из 2-ной системы в 10-ную:
10111110101000110110001000101010  --> 190.163.98.42

2) Аналогично предыдущей задаче, только переводим наоборот, из 10-ной системы счисления в 2-ную:
а) 65.128.255.12 --> 01000001100000001111111100001100
б) 192.48.0.24 --> 11000000001100000000000000011000

3)115628382 --> 115.62.83.82
Решаем  с конца:
- 4-е число не может быть 382, значит оно состоит из одной или двух цифр;
- пусть последнее число 2, тогда 3-е может быть только 38, но тогда 2-е получается 628, что невозможно;
- тогда пусть последнее число 82, тогда 3-е может быть только 83,  тогда 2-е получается 62, а 1-е 115
4,5(6 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ