Вот программа по формуле
var a:integer;
s:real;
begin
s:=1;
for a:=1 to 15 do begin
if (a mod 2 = 1) then s:=s+(2/a);
end;
writeln('сумма дробей с числителем = 2 а знаменателем от 1 до 15 = ',s);
end.
а вот программа по словесной задаче
var a,s:integer;
begin
s:=1;
for a:=10 to 99 do begin
if a mod 3 = 0 then s:=s*a;
end;
writeln('произведение двузначных чисел кратных 3 = ',s);
end.
Из строки 0110 видно, что b стоит в 1 столбце (из-за первой скобки)
из строки 0010 видно, что c стоит в 3 столбце (из-за второй скобки)
остаётся a, она стоит во втором столбце
Ответ: bac
Я как понял 1 кусочек лишний
// PascalABC.NET 3.2
begin
var n:=readInteger;
Writeln('десятки ',n div 10,' единицы ',n mod 10)
end.
Program p1;
var
x, y: integer;
begin
Write('Введите x: ');
readln(x);
y:=sqr(x)+3;
writeln('y=' + y);
end.