Регистрация Спросить otvet5GPT
ино7
11.11.2020 13:24
Информатика
Есть ответ 👍

НАПИСАТЬ ПРОГРАММЫ!!
1. Напишите программу, выводящую в виде таблицы значения функции y=5x²+2x на промежутке [-10;10] с шагом 0,5
2. Пользователь вводит произвольную последовательность чисел заканчивающуюся вводом "0". Определите сколько раз в этой последовательности встречается заданная им цифра
3. Пользователь программы вводит два целых положительных числа "а" и "b" задающих диапазон целых чисел [а;b]. Найдите программу, выводящую все числа из заданного диапазона в записи которых есть хотя бы один "0"

237
392
Посмотреть ответы 2

Ответы на вопрос:

КристинаКупава
КристинаКупава
4,4(99 оценок)

PascalABC.NET

#1

begin

 PartitionPoints(-10, 10, 20).Tabulate(p -> 5*(p**2) + 2*p).Println;

end.

#2

begin

 var A := ReadSeqIntegerWhile(p -> p <> 0).ToList;

 var x := ReadInteger('Считаем это число: ');

 A.Where(p -> p = x).Count.Println;

end.

#3

function IsNumberContainsDigit(number:integer; digit: char):boolean;

begin

 var stringnumber := number.ToString;

 if stringnumber.contains(digit) then IsNumberContainsDigit:=True else IsNumberContainsDigit := False

end;

begin

 var (a, b) := ReadInteger2('a, b: ');

 var rng := Range(a, b);

 rng.Where(p->IsNumberContainsDigit(p, '0')).Print;

end.

Объяснение:

323данилаАт
323данилаАт
4,6(69 оценок)
  program proga_25_1;   var a: text;       i,j,n,m : byte;         d: string;       sim: char;   begin              write('введите имя текстового файла   ');   {например: "test" он создастся там где находится сама программа }                read(d);                                             assign(a,d);                   rewrite(a);                       write('введите количество строк: n= ');                           readln(n);                       write('введите количество символов в строке: m= ');                         readln(m);                                         for i: =1 to n do                      begin                            sim: =chr(ord('1')+i-1);                             for j: =1 to m do                                write(a,sim);                                   writeln(a);                     end;                             close(a); end.      

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS