Предмет: Информатика, автор: Vanyasung

80 баллов. Информатика. Паскаль

1. Дано целое число N>=2. Запишите программу, вычисляющую количество четных натуральных чисел от 2 до N. Вывести полученное значение на экран.


2. С клавиатуры вводятся натуральные числа. Конец ввода чисел – 0, в подсчет количества не входит. Вычислить и вывести на экран количество чисел, кратных 5.


3. Дано целое число N>0. С клавиатуры вводится N любых чисел, найти сумму чисел, больших 5. Вывести полученное значение на экран.


1 задачу решить, используя цикл с предшествующим условием.

2 задачу решить, используя цикл с постоянным условием.

3 задачу решить, используя цикл с параметром.


manelica: Укажи на каком языке написать хотя бы
Vanyasung: паскаль

Ответы

Автор ответа: dimithras
2

Ответ:

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.

Похожие вопросы
Предмет: Окружающий мир, автор: софья149