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

Составить программу вычисления значений функции y=2*x+1, на промежутке [-3;6] с шагом 2 (Обязательно на Бейсик умоляю) Ещё надо ответить на во а)сколько раз выполнится цикл. б) при каком значении x цикл выполнится последний раз в)При каком значении x цикл прервётся (УМОЛЯЮ СДЕЛАЙТЕ ВСЕ МНЕ 2 ЗА ЧЕТВЕРТЬ ПОСТАВЯТ ЕСЛИ Я НЕ СДЕЛАЮ)Всё обязательно на языке Бейсик​

Показать ответ
Ответ:
svetskazka1978
svetskazka1978
14.10.2020 08:09
Uses crt;var a:array [1..99999] of integer;i,n,k,l,p,o: integer;beginwriteln ('vvedite kol-vo ychenikov');readln (n);for i:=1 to n do beginwriteln ('vvedite osenky',' ',i,' ','ychenika');readln(a[i]);if a[i]=2 then k:=k+1;if a[i]=3 then l:=l+1;if a[i]=4 then o:=o+1;if a[i]=5 then p:=p+1;end;if k<2 then writeln ('ne dopyshen',' ',k,' ', 'ychenik');if k>=2 then writeln ('ne dopysheno',' ',k,' ', 'ychenika');writeln ('kol-vo 3 -',' ',l);writeln ('kol-vo 4 -',' ',o);writeln ('kol-vo 5 -',' ',p);end.
0,0(0 оценок)
Ответ:
Diko056
Diko056
14.10.2020 08:09
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),2,5); a.Println;
  var b:=a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderBy(t->t[0])
      .Select(t->t[1]).ToArray;
  Writeln('Сдано на 5: ',b[3]);
  Writeln('Сдано на 4: ',b[2]);
  Writeln('Сдано на 3: ',b[1]);
  Writeln('Не допущено: ',b[0])
end.

Пример
n= 20
4 4 3 5 4 5 2 4 4 4 5 4 3 3 4 2 3 2 2 2
Сдано на 5: 3
Сдано на 4: 8
Сдано на 3: 4
Не допущено: 5

Написать программу при поступлении в вуз абитуриенты, получившие “2” на первом экзамене, ко второму
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота