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

На отрезке от a до b найти кол-во чисел кратных трём. (составить решение . информатика. 8 класс. pascal. , )

👇
Ответ:
Алиса2016
Алиса2016
11.06.2020

program z1;

  var a,b,k,i:integer;

    begin

      k:=0;

      write('Ââåäèòå êîîðäèíàòó à: ');

      read(a);

      write('Ââåäèòå êîîðäèíàòó b: ');

      read(b);

      for i:=a to b do begin

                       if i mod 3=0 then begin

                                           writeln(i);

                                           k:=k+1;

                                         end;

                       end;

      writeln('Количество чисел кратных трём равно ',k);

     readln;

    end.

4,4(50 оценок)
Открыть все ответы
Ответ:
Tatyana23411
Tatyana23411
11.06.2020
Const
  n = 10;
var
  a: array[1..n] of integer;
  i, j, t: integer;
  flag:boolean;
 
begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := random(101)-50;
    Write(a[i]:4)
  end;
  Writeln;
  i:=1;
  repeat
    flag:=true;
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin t := a[j]; a[j] := a[j+1]; a[j+1] := t; flag:=false end;
    Inc(i);
  until (i>n-1) or flag;
  Writeln('Отсортированный по возрастанию массив');
  for i := 1 to n do Write(a[i]:4);
  Writeln
end.

Тестовое решение:
Исходный массив
 -32  -7   2   2  50 -33   1  31   4 -16
Отсортированный по возрастанию массив
 -33 -32 -16  -7   1   2   2   4  31  50
4,5(84 оценок)
Ответ:
maximfz
maximfz
11.06.2020

Файлом, веб страницей - используется для создания гиперссылки на файл на компьютере/флеш накопителе, либо для создания гиперссылки на веб страницу в интернете.

Место в документе - используется для создания гиперссылки на другой раздел/страницу файла

Новый документ -  используется чтобы создать новый, не существующий файл  и разместить гиперссылку на него. Редактировать новый файл можно в любое время.

Электронная почта -  используется для создания гиперссылки на новое сообщение электронной почты на заранее указанный адрес.

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