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

Написать программу определения максимального числа последовательности положительных чисел, вводимых с клавиатуры, до тех пор, пока не будет введён 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*
Комментарий*

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

ranocchio6
Stepan Rastorgueva850
Окунева-Мотова
Gera8061
Спиридонова
armynis8
Andei
alexander4590
Михайлович Гуртовая929
gymnazium
barkhatl-2p7
Nastyaches4
Vitalevich
tatk00
yuip2008