Ввести три целых числа и вывести на экран большее из них

Знания

Информатика

1 ответ:

ВиталикО4 года назад

0 0

Язык СИ<em>(Откомпилирован и проверен был в Dev-C++)</em>

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

Непонятна операция в блоке подготовки данных

Hitman2000 [110]

1я непонятная операция, это i = AB с чертой, это сказанное произведение векторов скорее всего, A B - это вектора, следующая непонятная операция это mod проверяет делится ли число с остатком или нет, если a mod b =0, а делится на б без остатка, вот

0 0

4 года назад

даны х,у,z. напишите программу для вычисления а, b:а=2x+3y-z/3+2x; b=x*x+4/|y|-2

19732004 [7]

Var x,y,z:integer; a,b:real;
Begin
write('x='); readln(x);
write('y='); readln(y);
write('z='); readln(z);
a:=((2*x)+(3*y)-z)/(3+(2*x));
b:=((x*x)+4)/(abs(y)-2);
writeln('a=',a); writeln('b=',b);
End.

0 0

4 года назад

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

София Алексеевна [38]

Природная система -Болото,степь ,вулкан . Технические - самолёт , . Смешанная - библиотекарш оркестр система счисления

0 0

3 года назад

Назовите команды, которые могут выполнить следующие исполнителиA) телевизорБ) пылесосВ) человек

iiiiiiiiiiiiiiiii...

А) Переключать каналы, убавить или повысить яркость, поставить таймер на отключение, прибавить или убавить звук, поменять расширение экрана и тд.

Б) Всасывать пыль

В) Что угодно))

0 0

3 года назад

Помогите написать программу на PascalABCNETВХОДНЫЕ ДАННЫЕДана последовательность натуральных чисел, завершающаяся нулем. ВЫХОДНЫ

nata26pani [29]

Program kek;var r,q,z,s,n:integer;beginwrite ('введите непустую невозрастающуюю последовательность целых чисел, заканчивающуююся нулем');readln (n);z:=0;q:=1;while n<>0 dobeginif n=z then q:=q+1 else z:=n;readln (n); end;write ('кол-во одинаковых, идущих подряд чисел равно ', q);end.

0 0

1 год назад