Помогите с программами, пожалуйста. Pascal.1) Из 3-х, задаваемых с клавиатуры чисел
Помогите с программками, пожалуйста. Pascal.
1) Из 3-х, задаваемых с клавиатуры чисел a, b, c, отыскать сумму меньшего и наибольшего из этих чисел.
2) Отыскать среднеарифметическую температуру воздуха за N дней. Число дней и температуру воздуха каждого денька задать без помощи других.
1 ответ
Елена Гутиерес
1-ая задачка(я проверил программку, все норм работает)
var a,b,c,max,min,S:real;
begin read(a,b,c);
if agt;b then if agt;c then max:=a
else max:=c
else if bgt;c then max:=b
else max:=c;
if alt;b then if alt;c then min:=a
else min:=c
else if blt;c then min:=b
else min:=c;
S:=max+min;
writeln(S:2:2);
end.
Вторая задача(я проверил программу, все норм работает)
var t,S,N:integer;
R:real;
begin read(N);
S:=0;
read(t);
while tlt;gt;0 do
begin S:=S+t;
read(t);
end;
R:=S/N;
writeln(R:2:2);
end.
var a,b,c,max,min,S:real;
begin read(a,b,c);
if agt;b then if agt;c then max:=a
else max:=c
else if bgt;c then max:=b
else max:=c;
if alt;b then if alt;c then min:=a
else min:=c
else if blt;c then min:=b
else min:=c;
S:=max+min;
writeln(S:2:2);
end.
Вторая задача(я проверил программу, все норм работает)
var t,S,N:integer;
R:real;
begin read(N);
S:=0;
read(t);
while tlt;gt;0 do
begin S:=S+t;
read(t);
end;
R:=S/N;
writeln(R:2:2);
end.
Регина Шункина
это задача на последовательность)потому вводишь данные таким образом: число дней, температура за 1-ый денек, температура за 2-ой денек, ..., 0
Lesha Menshutin
последовательность обязана закончиться на 0)чтоб выйти из цикла, а то у тебя цикл будет исполнять нескончаемо и никаких деяний не произойдет)
Сосонский
Алексей
это я про вторую задачку для тебя разговариваю)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов