Задать вопрос!

Задать вопрос!

Все категории

4 года назад

13

Рост саши х рост наташи у рост вовы z найти средний рост

Информатика

2 ответа:

Alexrom [891]4 года назад

0 0

(x+y+z)÷3 тоесть:мы складываем x y z и делим на 3

Alena3377 [821]4 года назад

0 0

Х+У+Z полученную сумму разделить на 3

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

Выбери два слова подходящих по смыслу из двух групп. 1 группа Позиция, верхний, английская, программа, список, линейка. 2 групп

Енюша [7]

Программа-интерфейс

0 0

3 года назад

Увеличить переменную a в 50р.,если a нечетное число иначе увеличить на 30РЕБЯТ ОЧЕНЬ НУЖНО!

александрс2

Var a:real;
begin
readln(a);
if(a mod 2 = 0) writeln(a+30) else writeln(a*50);
end.

0 0

4 года назад

Определите, что будет напечатано в результате выполнения следующего алгоритма:var a,b:integer;begina:=1;b:=1;while abs(b)<100

EvaColnce [3.9K]

Ответ : 7168
....................................

0 0

4 года назад

Помогите написать программу на 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 год назад

Составить программу на языке программирования паскаль с 3 и более переменными.

Yulsen07

Любую? тогда так:

var a,b,c:real;
begin
writeln('Первое число');
readln(a);
writeln('Второе число');
readln(b);
c := a + b;
writeln('Ответ:',c)
end.

если что-то не правильно скажи. А то я не могу проверить т.к. компа рядом нету.

0 0

4 года назад