ирина Альбертовна
?>

Написать программу определения максимального числа последовательности положительных чисел, вводимых с клавиатуры, до тех пор, пока не будет введён 0. (циклом с предусловием в pascalabc), на фото программа с постусловием. а решить надо с предусловием.

Информатика

Ответы

takerra

var x, max: integer;

begin

x: =-1;

max: =-1;

while x< > 0 do

  begin

    readln(x);

    if x=0

      then break;

    if x> max

      then max: =x;

  end;

if (max < 1)

  then writeln('нет чисел, удовлетворяющих условию')

else writeln ('максимальное число: ', max);

end.

zubritskiy550
Var n,a,k: integer; p,s: real; begin write('n = '); readln(n); k: =0; for n: = 1 to n-1 do       begin       a: =n;       s: =0;       while a> 0 do             begin             s: =s+(a mod 10);             a: =a div 10;             end;       a: =n;       p: =1;       while a> 0 do             begin             p: =p*(a mod 10);             a: =a div 10;             end;       if s=p then             begin             writeln(n);             k: =k+1;             end;       end; if k=0 then writeln('нет'); end.
alexandergulyamov
// pascalabc.net 3.0, сборка 1128 procedure allmake(p: array of integer; var avg: real); begin   avg: =p.average;   for var i: =0 to p.length-1 do       if p[i]< avg then p[i]*=10 end; begin   var n: =readinteger('количество элементов в массиве: ');   var a: =arrrandom(n,1,50);   writeln('исходный массив'); a.println;   var av: real;   allmake(a,av);   writeln('среднее арифметическое равно ',av);   writeln('результирующий массив'); a.println;   writealltext('out.txt',a.joinintostring) end. тестовое решение: количество элементов в массиве: 15 исходный массив 34 50 49 50 17 21 13 25 11 43 47 45 30 11 1 среднее арифметическое равно 29.8 результирующий массив 34 50 49 50 170 210 130 250 110 43 47 45 30 110 10 файл out.txt дан во вложении.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Написать программу определения максимального числа последовательности положительных чисел, вводимых с клавиатуры, до тех пор, пока не будет введён 0. (циклом с предусловием в pascalabc), на фото программа с постусловием. а решить надо с предусловием.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

manager-3
Vrpeshka
Sacharov84
artemka56rus
ukkavtodor6
achernakov
svt5299
isaev
Вадимовна
domtorgvl20082841
inainainainaina0073
Kosov-Aleksandr379
fitzhu
Vlad Petr531
галина