<span>Делишь несколько раз на 10, каждый раз определяешь остаток от деления, если остаток -0, то счетчик + 1</span>
1) Семь
2) Три
Решение могу записать в комментарии, если нужно
Var
choose:char;
x: real;
begin
writeln('Переводить в радианы(Р) или в градусы(Г)?');
readln(choose);
if choose = 'Р' then
begin
write('Введите градусы: ');
readln(x);
writeln('Радианы: ', x*0.017);
end
else
if choose = 'Г' then
begin
write('Введите радианы: ');
readln(x);
writeln('Градусы: ', x*57,3);
end
else
writeln('Переводить можно ТОЛЬКО в радианы(Р) или градусы(Г)!');
end.
Var
i,k:Integer;
Begin
for i:=10 to 99 do
if (i mod 10 = 5) or (i mod 10 = 0) then k:=k+1;
Writeln(k);
end.