Представьте в виде построчной записи алгоритм решения следующей задачи: Мальчик, продающий на улице газеты, зарабатывает А рублей на продаже каждой из первых 75 газет. На каждой из остальных проданных газет он зарабатывает по Х рублей. Вычислите заработок мальчика, если он продаст 133 газеты.

program qq; var a, x, result:real; begin readln(a, x); result:=a*75 + x*(133-75); writeln(result); end.

Python:

A = 1

X = 2

all = 133

if all>=75: print((75*A)+((all-75)*X)); else: print(all*A);

если угодно, можете и создание переменных впихать в одну строку, с ; или вообще захардкодить цифры в выражение, как в предыдущем ответе.

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');

    readln

end.

var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.