Регистрация
ArianaLi
18.12.2020 00:38
Информатика
Есть ответ 👍

Втербо паскале через while вывести на экран наименьшие четные числа не превышающие заданного числа. число вводится с клавиатуры.

118
448
Посмотреть ответы 2

Ответы на вопрос:

choserge
choserge
4,8(9 оценок)

  видимо имеется ввиду что сумма этих чётных чисел не должна превышать r

 

 

 

  program chisla;

uses crt;

var i,r: integer ;

begin

      clrscr;

      write (' введите r: ');

      readln(r);

      writeln;

      i: =0;  

 

      while (i< =r) do          begin              inc(i,2);

            if (i< =r) then   write(i: 3);

 

          end;

 

      readkey;

end.

 

 

 

 

Helpmepleasewith
Helpmepleasewith
4,5(65 оценок)
Var  a: array[1..10] of integer;   i,k: byte;   begin  writeln('заполнение массива');   for i: =1 to 10 do  readln(a[i]);   for i: =1 to 10 do  begin  if a[i]=0 then  k: =k+1;   end;   writeln('кол-во нулей: ',k);   end.

Популярно: Информатика