Ну... Как-то так)

var
x, y: real;

begin
x := 0.5;
while x <= 25 do
begin
 if x > 20 then
 y := sin(x)
 else
 if x <= 5 then
 y := sqr(cos(x))
 else
 y := sqrt(x);
 writeln('y(', x, ') = ', y);
 x := x + 1.5;
end;
end.

0 0

4 года назад

Сколько единиц в двоичной записи десятичного числа 260?

morec47 [39]

Переводим 260 в двоичную систему счисления и видим:

0 0

3 года назад

Приведите три примера основных моделей организации данных

Владимир Николаев...

Информатика она везде. Например обычный диск на котором хранится информация. Обычная бумага тоже имеет роль к информатики и в древности это были наскальные рисунки. Все это информация, а информатика как раз и наука об информации!

0 0

3 года назад

Массив на 13 значений заполнен трехзначными числами найти сумму и их количество в котрых есть цифра 2

Нина Ниунова

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(13,100,999); a.Println;
var s:=a.Where(t->t.ToString.Contains('2'));
Writeln('Сумма отобранных чисел равна ',s.Sum,
', их количество равно ',s.Count)
end.

Пример
447 568 576 760 708 373 474 764 520 907 654 623 414
Сумма отобранных чисел равна 1143, их количество равно 2

0 0

3 года назад