1 год назад

Даны три целых числа a, b, c. Найдите среднее арифметическое их квадратов

1 ответ:

Electron [7]1 год назад

0 0

Var a,b,c :integer;
begin
writeln('введите число A') ;
readln(A);
writeln('введите число B') ;
readln(B);
writeln('введите число C') ;
readln(C);
S:=(sqr(a)+sqr(b)+sqr(c))/3;
writeln(S);
end.

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

перевести в двоичную систему

Евгения888 [7]

т.к. число не дано, то объясню как. Пишешь число, например 110 в десятично системе счисления и делишь всё время на 2, пока не дойдёшь до единицы(1). В ответе указываются те числа, которые у тебя в остатке. И писать ответ нужно строго наоборот, т.е.

если у тебя остатки 101010111, то надо написать 111010101

0 0

4 года назад

Прочитать ещё 2 ответа

Найдите индексы первого вхождения максимального элемента. Выведите два числа: номер строки и номер столбца, в которых стоит наиб

Артем Волошин

R, c = input().split()arr = list() for _ in range(int(r)): arr.append(list(map(int, input().split())))m = max(e for r in arr for e in r) for i, r in enumerate(arr): if m in r: print(i, r.index(m)) break

0 0

4 года назад

Паскаль. 1) В банк положили вклад N рублей. Каждый месяц вклад увеличивается на 1%. Определить размер вклада через 5 лет. 2) Д

Карина23

1)
uses crt;
var m,p,s:real;
k,n:integer;
begin clrscr;
write('Вклад(N)руб.: ');readln(m);
write('Кол-во лет: ');readln(n);
write('Процент: ');readln(p);
k:=1;
s:=m;
for k:=1 to n do
s:=s+s/100*p;
writeln('s=',s);
readkey;
end.
Не могу понять условия 2) и 3).

0 0

3 года назад

Для узла с IP-адресом 221.117.97.115 адрес сети равен 221.117.96.0. Найдите наименьшее возможное количество нулей в двоичной зап

alexxzenkov

Ответ:9

Думаю, что так

0 0

4 года назад

Прочитать ещё 2 ответа

Составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: НОД(А, B, С) = НОД(НОД(A, В)

Erly

Function NOD(a, b: longint): longint;
begin
while a <> b do
if a > b then a := a - b
else b := b - a;
NOD := a
end;

var
A, B, C: longint;

begin
Write('Введите три натуральных числа: '); Readln(A, B, C);
Writeln('НОД=', NOD(NOD(A, B), C))
end.

Тестовое решение:
Введите три натуральных числа: 256 48 24
НОД=8

0 0

4 года назад