Паскаль абс 2 1)написать программу выводящую на экран последовательность чисел от 1 до 10 через пробел в строчку. 2)написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.

OlegJexLP OlegJexLP    3   17.03.2019 09:50    1

Ответы
angeldeikina angeldeikina  14.02.2021 20:03

 

1) 

program posledovat1;
var
  w:integer;

 

begin

 

w:=0;
repeat

  w:=w+1;
  write(w,' ');
until w=10

 

end.

 

2)

program nechet1;
var
  i,pr:integer;

 

begin

 

pr:=1;
for i:=11 to 20 do
  if i mod 2 = 1 then
    pr:=pr*i;
    writeln(pr);


end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика