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

#Нужно посчитать сколько чисел в промежутке от 0 до 200 делится на 2 без остатка.
с++ код нужен

Показать ответ
Ответ:
revon
revon
25.12.2020 01:39
Вот тебе простой вариант ришение задачи (коментар=пояснение)

PascalВыделить код

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16  program prg;  uses crt;  var  rez,chislo,min,max:integer;  begin  Write('Enter number =  ');readln(chislo);                 //zanosim 1 chislo  max:=chislo;                                              //v max ta min  min:=chislo;                                              //chtobu potom mu soukb sravnivat s drugimi chislamu  while (chislo<>0) do                                      //zapuskaem zikl poka mu ne napishem 0  begin   if (chislo>max)then max:=chislo;                         //sravnivaem s max   if (chislo<min) then min:=chislo;                        //sravnivaem s min   readln(chislo);                                          //snova pihem chislo   end;   rez:=(max-min);                                          //nahodim raznizy   writeln('max(',max,') - min(',min,') = ',rez);           //otvet end.
0,0(0 оценок)
Ответ:
Beaargleb
Beaargleb
28.05.2023 21:54
Const n=12; m=10;
var a:array[1..n,1..m] of integer;
i,j,k:integer;
begin
k:=0;
for j:=1 to m do
 for i:=n downto 1 do
  begin
  k:=k+1;
  a[i,j]:=k;
  end;
for i:=1 to n do
 begin
 for j:=1 to m do write(a[i,j]:4);
 writeln;
 end;
end.

Результат:
  12  24  36  48  60  72  84  96 108 120
  11  23  35  47  59  71  83  95 107 119
  10  22  34  46  58  70  82  94 106 118
   9  21  33  45  57  69  81  93 105 117
   8  20  32  44  56  68  80  92 104 116
   7  19  31  43  55  67  79  91 103 115
   6  18  30  42  54  66  78  90 102 114
   5  17  29  41  53  65  77  89 101 113
   4  16  28  40  52  64  76  88 100 112
   3  15  27  39  51  63  75  87  99 111
   2  14  26  38  50  62  74  86  98 110
   1  13  25  37  49  61  73  85  97 109
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота