1.продолжить числовой ряд 1,5,25,125, использую цикл repeat. (паскаль) 2.найти сумму положительных нечетных чисел, меньших 50.(паскаль)

kristpan2004p0c22v kristpan2004p0c22v    2   12.09.2019 10:20    0

Ответы
nikakrasovska nikakrasovska  07.10.2020 09:33
//Pascal
//1)
var N, mult: longint;
begin
  mult := 1;
  write('Введите конечное число: '); readln(N);
  repeat
    write(mult, ' ');
    mult := mult * 5;
  until (mult > N);
readln;
end.

//2)
var
  i: byte;
  sum: integer;
begin
sum := 0;
  for i := 1 to 49 do
    if i mod 2 <> 0 then sum := sum + i;
writeln('Sum = ', sum); readln;   
end.

1.продолжить числовой ряд 1,5,25,125, использую цикл repeat. (паскаль) 2.найти сумму положительных н
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика