Определить количество нечетных чисел заданных от 1 до n
Ответы на вопрос
Ответил vladmor
0
var a,n,k : integer;
begin
write('Введите n :');
readln(n);
a:=1;
repeat
k:=k+1;
a:=a+2;
until a>n;
writeln('Количество нечетных ',k);
end.
Тестовое решение:
Введите n :10
Количество нечетных 5
begin
write('Введите n :');
readln(n);
a:=1;
repeat
k:=k+1;
a:=a+2;
until a>n;
writeln('Количество нечетных ',k);
end.
Тестовое решение:
Введите n :10
Количество нечетных 5
Новые вопросы