Регистрация
3drugasikaoztup3
08.09.2021 23:21
Информатика
Есть ответ 👍

Выберите из предложенного списка программы,относящиеся прикладному програмному обеспечению

156
248
Посмотреть ответы 2

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

Sghem
Sghem
4,7(50 оценок)
Где сам список ? список кинь
миларыбка
миларыбка
4,8(65 оценок)
1.                                                    

program raf105;

var

  a, s: real;

function square(a: real): real;

begin

  square: = a*a;

end;

begin

  write('введите сторону квадрата: ');

  readln(a);

  s: = square(a);

  writeln('его площадь равна ',s);

end.

2.                                                    

program raf105;

var

  num10, num2, count_1: integer;

begin

  write('введите десятичное число: ');

  readln(num10);

  repeat

    if (num10 mod 2 = 1) then

      count_1: = count_1 + 1;

    num10: = num10 div 2;

    if num10 = 1 then

      inc(count_1)

  until num10 < = 1;

  writeln('в двоичной записи числа ',count_1,' ед.');

end.

                                                        pascalabc 3.4.2

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