Все категории

4 года назад

Помогите с информатикой 4-5 вопрос. Даю 40 баллов. Заранее благодарю.

Знания

Информатика

1 ответ:

denny12234 года назад

0 0

1) 3
2) 1
3) АВБГ
4)
5) 4

Читайте также

Построить блок схему нахождения значений функций F X*2+3,при х>=2 F= X+1, при x <2 x-2

ИвановаИванна [7]

program n1;
var x,y:real;
begin
writeln('Введите x');
read(x);
if x>=2 then y:=2*x+3 else
y:=(x+1)/(x-2);
writeln('Значение функции равно ',y);
end.

0 0

4 года назад

В таб ли це Dat пред став ле ны дан ные о ко ли че стве голосов, по дан ных за 10 ис пол ни те лей на род ных песен (Dat[1] — ко

Hitman1111111111

Программа ищет значение минимального элемента массива.
Ответ: 12.

0 0

3 года назад

Какие графические объекты могут быть включены в текстовый документ?

sanya962 [14]

Фото, (gif)ки, э это чёртово правило о длииных ответах

0 0

4 года назад

Pascal ABC Составьте программу вывода на экран различным цветом оценки Ос, которую получил ученик и текста: "Молодец.", если Ос=

Лена Фонарик [5]

Исходный программный код находится в приложении ниже.
Писал в: PascalABC.Net v.3.2, сборка 1325 (19.10.2016)

0 0

4 года назад

Максимальная длина монотонного фрагмента последовательности. Дана последовательность натуральных чисел, завершающаяся числом 0.

Нюта Ирбис [3.2K]

===== PascalABC.NET =====

begin

var (k, kmax, s) := (1, 0, 1);

var a := ReadInteger;

if a = 0 then

begin

Print(1);

exit

end;

foreach var b in ReadSeqIntegerWhile(p -> p <> 0) do

begin

var sgn := Sign(b - a);

a := b;

if sgn = s then

k += 1

else

begin

if k > kmax then

kmax := k;

(k, s) := (2, sgn)

end

end;

if k > kmax then

kmax := k;

Print(kmax)

end.

0 0

4 года назад