Предмет: Информатика, автор: kosyugaandrey

Дано дві трійки дійсних чисел. У кожній трійці всі числа різні. Знайдіть середнє арифметичне максимальних чисел кожної трійки.

написать программу на паскале

Veter0k: пример можешь привести?

kosyugaandrey: типо 1 тройка числа 5,6,1 самое больолше 6 , 2 тройка 3,2,8 самое большое 8 , (8+6)/2 = 7

Ответы

Автор ответа: Veter0k

program HelloWorld;var a1,b1,c1,a2,b2,c2:integer; s:double;begin writeln('First'); a1:=5; b1:=6; c1:=1; writeln(a1,'-',b1,'-',c1); writeln('Second'); a2:=3; b2:=2; c2:=8; writeln(a2,'-',b2,'-',c2); if(b1>a1)and(b1>c1) then a1:=b1 else if (c1>a1) then a1:=c1; if(b2>a2)and(b2>c2) then a2:=b2 else if (c2>a2) then a2:=c2; s:=(a1+a2)/2; writeln(s:0:2);end.

kosyugaandrey: надо чтобы числа были рандомные, чтобы вписать можно было любое лисло

Veter0k: рандом или с клавиутуры?

kosyugaandrey: кароч, выскакивет окошоко , туда пишешь число так 3 раза протом вторая тройка и оно топределяет число и делает среднее из них

Veter0k: program HelloWorld;
var a1,b1,c1,a2,b2,c2:integer; s:double;
begin
readln(a1);
readln(b1);
readln(c1);
readln(a2);
readln(b2);
readln(c2);
writeln('First');
writeln(a1,'-',b1,'-',c1);
writeln('Second');
writeln(a2,'-',b2,'-',c2);
if(b1>a1)and(b1>c1) then a1:=b1
else if (c1>a1) then a1:=c1;
if(b2>a2)and(b2>c2) then a2:=b2
else if (c2>a2) then a2:=c2;
s:=(a1+a2)/2;
writeln(s:0:2);
end.

Предыдущий вопрос

Следующий вопрос

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

Предмет: Английский язык, автор: mariyyya2000school

В Underline the correct alternatives in the text. All my friends are (0) fascinating /fascinated people. One of them, Bob, is very (1) interesting/interested in the cinema. He goes to the cinema four times a week and never gets (2) boring/bored. It is (3) amazing/amazed how he can remember all the films after seeing so many of them. Before the Oscar ceremony he is very (4) exciting/excited and stays up all night to watch it.

пж помогите срочно....

6 лет назад

Предмет: Математика, автор: amirmamoedov

Составьте график уравнения x+2y=6

С пошаговым объяснением пожалуйста

6 лет назад

Предмет: Биология, автор: farm1xx

1. Кто такие холоднокровные и теплокровные животные?
2. На какие группы делятся рыбы?
3. Какова цель боковой линии у рыб?
4. Для чего рыбе плавательный пузырь? Как он работает?
5. Приведи пример (мин 3) костных, хрящевых и круглоротых рыб.
6. Какая вода содержит больше кислорода (теплая или холодная)?
7. Как использует рыбу человек?
8. Выясни, какие виды рыб, обитающие в Эстонии, находятся пол охраной

6 лет назад