Question

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

Answer 1

Ответ:

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.

Объяснение: