19. При покупке некоего устройства Вася учитывал тип поддерживаемой памяти и сокет. Что покупал Вася?А) жёсткий дискБ) мониторВ) оперативную памятьГ) материнскую плату​

Правильный ответ: А) жёсткий диск.

Алгоритм такой:

1 шаг: определяем сколько мы получим денег за первые 75 газет.

Пусть n - всего газет, тогда (n-(n-75))*F = A, - рублей за первые 75 газет.

2 шаг: определяем кол.во копеек, которые мы получим за остальные газеты: (n-75)*X = B, - копеек.

Программа на естественном языке:

Переменные:

A, B : целые;

Начало

Введение n (число газет);

Введение F(цена за первые 75 газет);

Введение X(цена за последующие газеты);

A присвоить (n-(n-75))*F;

B присвоить (n-75)*X;

Вывод (Мальчик заработает A рублей B копеек).

Конец.

Решение такое (для x=1,2,3,4,5,6,7,8,9,10. ):

var
  x, y: real;
begin
   writeln('*********************');
   writeln('*    X    *    Y    *');
   writeln('*********************');
   for x := 1 to 10 do
      begin
         if x>=0 then y:=5*x else y:=4*x+2;
         writeln('*    'x,'    *    ',y,'    *');
      end;
   writeln('*********************');
end.

Но лучше сделать ввод значений х с клавиатуры:
var
   y: real; i:integer;
   mas: array[1..10] of real;
begin
   for i := 1 to 10 do
      begin
         write ('Введите ',i,'-е значение ');
         readln (mas[i]);
      end;
    writeln('*********************');
    writeln('*    X    *    Y    *');
    writeln('*********************');
    for i := 1 to 10 do
      begin
         if mas[i]>=0 then y:=5*mas[i] else y:=4*mas[i]+2;
         writeln('*    ',mas[i],'    *    ',y,'    *');
      end;
   writeln('*********************');
end.