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

Программа получает на вход целые числа, количество введённых
чисел неизвестно, последовательность чисел заканчивается числом
0 (0 – признак окончания ввода, не является членом
последовательности). Количество чисел не превышает 1000.
Введённые числа не превышают 30 000. Гарантируется, что в
последовательности есть хотя бы одно число, кратное трём.
Программа должна вывести наименьшее число, кратное трём.

👇
Ответ:
makhero111
makhero111
02.11.2020

#include<iostream>

using namespace std;

int main(){

   int temp,min,flag;

   while(cin>>temp){

       if (!(flag) && temp%3==0){

           min=temp;

           flag++;

      }

      if(temp%3==0 && temp<min){

           min=temp;

       }

   }

   cout<<min;

}

как-то так.

4,5(20 оценок)
Открыть все ответы
Ответ:
vika13082001
vika13082001
02.11.2020
1)
var f:text; a:array[1..7] of real; i,k,c,x:integer; s:string;
begin
 for i:=1 to 7 do
   begin
    readln(x);
    a[i]:=x;
   end;
 assign(f,'file.txt');
 rewrite(f);
 for i:=1 to 7 do
   begin
    str(a[i],s);
    writeln(f,s);
   end;
 close(f);
 reset(f);
 k:=0;
 while not eof(f) do
   begin
    readln(f,s);
    val(s,x,c);
    if x<0 then k:=k+1;
   end;
 close(f);
 if k<>0 then writeln('В массиве ',k,' отрицательных элемента(ов)');
  else writeln('В массиве нет отрицательных элементов');
 erase(f);
end.

2)
Var a,b,c,d:integer;

Function max(a,b:integer):integer;
begin
 if a>b then max:=a
  else max:=b;
end;

Begin
 readln(a,b,c,d);
 a:=(max(a,b)); 
 b:=(max(c,d));
 writeln('max=',max(a,b));
End.
4,8(12 оценок)
Ответ:
galuhlulia
galuhlulia
02.11.2020
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в массиве:');
  var m:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,0,1);
  a.Println(2); Writeln(2*a.ColCount*'-');
  var b:=a.ElementsByRow.Where(x->x=1).ToArray;
  var k:=b.Count; b.Println;
  Writeln('k=',k)
end.

Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 12
*** Исходный массив [5,12] ***
 0 0 1 1 1 1 1 1 0 0 1 0
 0 1 1 1 0 0 1 1 1 0 1 0
 1 0 0 1 0 1 0 0 0 0 0 0
 1 0 0 0 0 1 0 1 0 0 1 0
 1 1 1 1 0 1 1 0 1 0 0 1

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