80 баллов. Информатика. Паскаль
1. Дано целое число N>=2. Запишите программу, вычисляющую количество четных натуральных чисел от 2 до N. Вывести полученное значение на экран.
2. С клавиатуры вводятся натуральные числа. Конец ввода чисел – 0, в подсчет количества не входит. Вычислить и вывести на экран количество чисел, кратных 5.
3. Дано целое число N>0. С клавиатуры вводится N любых чисел, найти сумму чисел, больших 5. Вывести полученное значение на экран.
1 задачу решить, используя цикл с предшествующим условием.
2 задачу решить, используя цикл с постоянным условием.
3 задачу решить, используя цикл с параметром.
Ответы
Ответ:
1
// не совсем понятно зачем тут цикл, но раз надо, значит надо
var N,q,i:integer;
begin
writeln('Введите целое число болешее или равное 2');
readln(N);
if N < 2 then
begin
writeln('Введёное число не соответствует условию');
readln();
exit
end;
q:=0;
i:=2;
while i <= N do
begin
if i mod 2 = 0 then q:=q+1;
i:=i+1
end;
writeln ('Количество чётных натуральных чисел: ',q)
end.
2
var q,x:integer;
begin
q:=0;
writeln('Вводите поочерёдно числа через enter');
writeln('Для окончания введите 0 и enter');
repeat
readln(x);
if x mod 5 = 0 then q:=q+1;
until x = 0;
writeln ('Количество чисел, кратных 5: ',q)
end.
3
var N,i,sum:integer;
begin
sum:=0;
write('Введите количество вводимых чисел: ');
readln(N);
writeln('Вводите поочерёдно числа через enter');
for i:=N downto 1 do
begin
readln(N);
if N > 5 then sum:=sum+N;
end;
writeln ('Сумма чисел больших 5: ',sum)
end.