Регистрация
mashakuznetsova211
27.09.2020 14:39
Информатика
Есть ответ 👍

Синформатикой
вывести сумму всех двузначных чисел кратных 7 пояснение: составить блок схему с циклом,с предусловием, написать алгоритм решения ​

214
249
Посмотреть ответы 1

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

Nottyt
Nottyt
4,6(98 оценок)

program juliavanina; uses crt; var  r,min,max: real;   k: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   min: =0;   max: =0;   k: =0;   r: =1;   writeln('введите ненулевое число, не превышающее 30000 по модулю');   writeln('(или введите 0 для конца последовательности) ');   while (r< > 0) and (k< 1000) do      begin          write('ввод: ');             readln (r);           if abs(r)< 30000 then                  begin                      if min> r then min: =r;                       if max< r then max: =r;                       k: =k+1;                     end              else                  begin                      writeln ('вы ввели слишком большое по модулю число');                       writeln ('это число не будет учтено');                   end;       end;   writeln();   writeln('всего введено ',k-1,' чисел');   writeln('разность min и max составляет ',max-min); end.

 

проверено - работает на паскаль авс

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