3 года назад

дан рост трех друзей . Напишите программу которая определяет их средний рост и выводит на экран монитора результат

Знания

Информатика

1 ответ:

PetrSt3 года назад

0 0

var

a, b, c : real;

begin

read (a, b,c);

writeln ((a+b+c)/3);

end.

Читайте также

Какие преимущества использования USB вы знаете?

Полинка256

Какое именно USB есть микро оно сейчас очень популярно в использование в телефоне в виде зарядки и соединения для компьютера, но если говорить про обычный USB то что про него сказать очень удобная штука, ломается редко, да можно сказать никогда, да USB сейчас везде есть, есть даже разетки виде USB, это очень удобно, не нужен блок питая, так как он уже встроен. USB очень удобен, и прочный, хорошая штука.

0 0

1 год назад

Помогите пожалуйста. Программа Паскаль

Antonio777

Ответ:

Begin

Read(x1,y1,x2,y2);

Write(sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)));

End.

Begin

Read(a,b,c);

P:=(a+b+c)/2;

Write(sqrt(p*(p-a)*(p-b)*(p-c)));

End.

0 0

4 года назад

Написати програму яка визначить добуток крайних цифр чотиризначного числа.

Ivan Guskov [37]

Var x1,x2,y,p:integer;
begin
write('Введите четырехзначное число: ');
readln(y);
x1:=y div 1000;
x2:=y mod 10;
p:=x1*x2;
writeln('Произведение крайних цифр: ',p)
<span>end.</span>

0 0

4 года назад

Напишите пожалуйста реферат по информатике на 12 листов. Тема: ,,Мир без интернета''.

Екатерина-86

Жизь без интернета - для нас не жизнь. Без него мы чувствуем себя ограниченными от общества. Мы не находим нужный материал.Не можем заказать что то для себя и своей семьи. Вывод: мы можем пользоваться интернетом , но не долгое время!
<span />

0 0

4 года назад

Задача з інформатики з клас на кмітливість. Помогите!!!! Є три коробки , в кожній з яких три кульки, дві зелені, дві червоні й о

Zaaaq1 [32]

Якщо всі підписи неправильні, то потрібно взяти кульку з коробки, на якій написано "Одна червона, она зелена". Обидві кульки будуть однакового кольору. Далі, у коробці, колір якого витягнули, також будуть дві кульки однакового кольору. Кульки різного кольору будуть у третій коробці.

0 0

4 года назад