1. Вычислить значение переменной Y при заданном значении N: Y=1/1+1/2+1/3 + ... + 1/N. использовать цикл типа ДО. (Паскаль) 2. Найти все целые двузначные числа, удовлетворящие условию: остаток от деления на 3 равен 2. (Паскаль)

1)

program sum_1_na_n;

var y: real;

i, N:integer;

begin

writeln ('Введите значение N.');

readln (N);

i : = 0;

y : = 0;

repeat

i : =i + 1;

y : = y + 1/i;

until i = N;

writeln ('Cумма y = ', y : 8 : 4)

end.

2)

program ost;

var i: integer;

begin

i : = 1;

repeat

if (i - 3 * int (i/3) = 2) then write (i, ' ');

if i mod 10 = 0 then writeln; / /Числа каждого десятка в новой строке

i:=i + 1;

until i = 99;

end.