Задать вопрос!

Задать вопрос!

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

4 года назад

6

КТО ШАРИТ В ИНФОРМАТИКЕ? Помогите пожалуйста,3 задание

КТО ШАРИТ В ИНФОРМАТИКЕ?
Помогите пожалуйста,3 задание

Информатика

1 ответ:

Solnce099 [50]4 года назад

0 0

стремное задание, но там не дана переменная k, поэтому ответ будет 4.

или 2880.

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

Составьте программу, определяющие самых жарких 7 дней и самых холодных 7 дней прошедшего месяца, если известна среднесуточная те

topolin4ik [7]

<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>

begin
var a:=ArrRandom(31,16,27); a.Println;
var s:=a.Select((x,i)->(x,i)).OrderBy(x->x[0]).Select(x->x[1]+1);
Write('Семь самых холодных дней: '); s.Take(7).Println;
Write('Семь самых жарких дней: '); s.TakeLast(7).Println
end.

<u>Пример</u>
17 17 25 27 22 26 22 23 26 26 25 16 21 25 22 17 20 19 16 19 21 22 19 16 21 27 22 24 22 24 22
Семь самых холодных дней: 12 19 24 1 2 16 18
Семь самых жарких дней: 11 14 6 9 10 4 26

0 0

4 года назад

Нужна помощь по Pascal abc . Нужна программа , которая сравнит два введенных числа и напишет , какое больше .

Nanya [14]

// PascalABC.Net
var
a,b:integer;
begin
Write('Введите через пробел числа а и b: '); Read(a,b);
if a=b then Writeln('Числа равны')
else
if a>b then Writeln(a,'>',b)
else Writeln(a,'<',b)
end.

0 0

3 года назад

Прочитать ещё 2 ответа

Помогите пожалуйста Определите количество цветов в палитре при глубине цвета 10 бит

Захар22

Цветов 1024 , 2в степени 10 это 1024

0 0

4 года назад

Добрый день, помогите решить задания N 156 и N 157

NataKuz

..........................

0 0

4 года назад

Паскаль. Напишите программу, которая просит ввести с клавиатуры натуральное число и выводит на экран, является ли число двузначн

Amellina [50]

Var i: Integer;
begin
writeln('Введите число');
readln(i);
if (i>9) and (i<100) then writeln('Является') else
writeln('Не является');
end.

0 0

1 год назад