Информатика
Информатика, 14.10.2019 08:30, anborisovan

Вопрос/Задача:

Программа в паскале! "напишите программу, которая в последовательности целых чисел определяет сумму максимального и минимального чисел . программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом ноль (ноль – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введенные числа по модулю не превышают 30000." отдал все пункты что есть! !

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

Ответ
Ответ разместил: Гость

                                                                          нет

Ответ
Ответ разместил: Гость

var a: real;

b: integer;

begin

readln(a);

b: =round(a*1000)mod 1000;

write(b div 100 + b mod 10 + b mod 100 div 10);

end.

Ответ
Ответ разместил: Гость

var

i,s: integer;

begin

s: =0;

for i: =2 to 5 do

s: =s+i*i;

writeln(s);

end.

Ответ
Ответ разместил: pep4

uses system; var ch,min,max,i: integer; begin cls;

readln(ch); min: =ch; max: =ch;

while(ch< > 0) dobegin readln(ch); if ((min > ch) and (ch< > 0)) then min: =ch; if max < ch then max: =ch; inc(i); if i > 999 then break; end;

writeln('max = ', max); writeln('min= ',min); writeln('suma max + min = ',max+min); readln; end.

Похожие вопросы

Вопросов на сайте: