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

4 года назад

Найти сумму и среднее арифметическое из чисел в файле pascal

Знания

Информатика

1 ответ:

Алекс44 [14]4 года назад

0 0

Ответ:

a=open("input.txt").read().split()

a=list(map(int,a))

b=open("output.txt","w")

b.write(str(sum(a))+"\n")

b.write(str(sum(a)/len(a)))

b.close

Объяснение:

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

Сообщение занимает 3 стр по 25 строк в каждой строке по 60 символов. Сколько символов в использованной алфавите если всё сообщен

Солинка

Надо посчитать количество символов в сообщении: 3 * 25 * 60 = 4500;
Сообщение занимает 1125 байт, посчитаем, сколько байт занимает каждый символ: 1125 / 4500 = 0.25;
Т.к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. Байт состоит из 8 бит.
8 / 4 = 2 (количество битов чтобы закодировать каждый символ)
Двумя битами можно закодировать 4 символа, значит в алфавите может быть до четырех символов

0 0

3 года назад

Для какого х истинно выражение: (x<3)&((x<2) ∨(x>2)) X=1 ; X=2 ; X=3 ; X=4

maximum64

(х<3) подходит х=1 и х=2
(х<2) подходит х=1
(х>2) подходит х=3, х=4

0 0

4 года назад

Мы эту тему проходим бегло, а книги про Pascal у меня нет, так что помогите. Записать в виде обычной математической формулы 1) y

Таня2407

1) y:=2*sin(x)*sqrt(x+sqrt(abs(x)))
2sinx+корень(х+корень(|x|))
2) y:=sqrt(sin(x)+sin(sqrt(x)))
корень(sinx+sin(кореньх))
3) y:=sqrt(abs(x-1)+sqrt(sin(x)))
корень(|x-1|+кореньsinx)

0 0

3 года назад

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

Дана температура. Определить агрегатное состояние воды. составьте пожалуйста программу, она решается через оператор: If

rozarka [76]

Язык C++. Решение смотри во вложении.

0 0

4 года назад

С клавиатуры вводится последовательность чисел,оканчивающаяся нулём.Определить количество чисел,кратных 5,во введенной последова

Мартина [116]

var i,k,x:integer;

begin

i:=0;

x:=1;

while x<>0 do

begin

read(x);

if (x mod 5=0)and(x<>0) then k:=k+1;

end;

writeln('Количество чисел кратных 5= ',k);

end.

0 0

1 год назад