4 года назад

Информатика даны два целых числа . найти их среднее арифмитическое и средние геометрическое

Знания

Информатика

1 ответ:

Ринахс4 года назад

0 0

Program n1;
var a,b: integer;
begin
readln(a,b);
writeln('срзнач: ',(a+b)/2);
write('сргеом: ',sqrt(a*b));
end.

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

Как в pascal работать с файлами, в input начальные данные, output выведенные

рушан677

Assign – устанавливает связь между именем файла в программе (файловой переменной ) и физическим именем файла, принятым в ОС.
Reset - открывает существующий файл для чтения.
Rewrite – создает и открывает новый файл для записи на внешнем устройстве (если файл ранее существовал, вся предыдущая информация из него стирается).
Close - закрывает открытый файл.

0 0

3 года назад

Құжаттың өлшемін қалай орнатады?

Михаил Соловьев [7]

Қажаттын өлшемін қалай орнатады

0 0

4 года назад

1. Дано несколько чисел. Подсчитайте, сколько из них делятся на 3 и 2, и выведите это количество. Входные данные Cначала вводитс

Аноним1

#Python 3.X

n = int(input('n = '))
c2, c3 = 0, 0
for i in range(n):
    x = int(input('Число {}: '.format(i + 1)))
    if x % 2 == 0:
        c2 += 1
    elif x % 3 == 0:
        c3 += 1
print('На 2 делится {} чисел, на 3 - {}.'.format(c2, c3))

0 0

3 года назад

Помогите пожалуйста с Паскалем! Очень нужно! 1. С клавиатуры вводится натуральное число n. Найдите и выведете самую большую цифр

вдлцд

Программа выводит максимальную цифру числа:
Program maxx;
uses crt;
var x,max:integer;
begin
write('введите число x=');readln(x);
max:=0;
while x>0 do
begin
if max<(x mod 10) then max:=(x mod 10);
x:=x div 10
end;
writeln('max=',max);
end.

0 0

4 года назад

Укажите минимальный объем памяти (в килобайтах ), достаточный для хранения любого растрового изображения размером 256х256 пиксел

stebikhov

216 цветов - ближайшее превосходящее значение 2^8=256,значит инф. объём 1 пикселя - 8 бит.

Инф. объем изображения I= 256x256x8=524288 бит=65536 байт=64 кб

0 0

2 года назад