Question

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

 

2. Найти все целые двузначные числа, удовлетворящие условию: остаток от деления на 3 равен 2. (Паскаль)

Answer 1

1).Использовал цикл,но условия не до конца понял
program c1;
var n,i:integer;
y,l:real;
begin
l:=1;
readln(n);
for i:=1 to n do
begin
y:=y+(1/l);
l:=l+1;
writeln(y);
end;
end.

2).

program c1;
var n,i:integer;
begin
readln(n);
for i:=1 to n do
begin
if (i mod 3=2) then write(i,' ');
end;
end.