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

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

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

Сергей Добродон

4 года назад

6

Помогите решить ребус сам уже не вывожу !!!!

Помогите решить ребус сам уже не вывожу !!!!

Информатика

1 ответ:

VadimKeyn4 года назад

0 0

У меня получилась Криптография-методы шифрования информации

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

Помогите пожалуйста!!! В файле input.txt имеются следующие записи:8 18 23 7 13 27 33. Нужно составить программу,которая определ

ITworksGroup [110]

Немного непонятно, как 8 может указывать на то, что дальше будет 6 чисел.

python 3:
with open("input.txt") as f:
numbers = list(map(int, f.read().split()))[1:]
print(sum(numbers)/len(numbers))

PascalABC.NET 3.2:
begin
var f := openread('input.txt');
var n := readinteger(f);
var sum := 0;
for var i := 1 to n do
sum += readinteger(f);
write(sum / n);
end.

0 0

4 года назад

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

«Марк I» - первый американский программируемый компьютер. Разработан и построен в 1941 году по контракту с IBM молодым гарвардск

Настя Чернова

Десятичная система счисления

0 0

4 года назад

Помогите пожалуйста.это срочно. Не успеваю. Мне нужно повторить геометрию.

Emke

6. лавашик - клавиша

0 0

4 года назад

12. Составить блок-схему и написать программу вычисления значения функции: Кто решит дам 20 балов. СРОЧНО!!! ПоЗяЗя ^_^

panda-vik [1.3K]

Язык PascalABC:begin var f: real; readln(f); if (f >= 0) then begin writeln('x := ', sqrt(f)); end else writeln('x := -3');end.

0 0

4 года назад

Написать программу по блок-схеме

Жандар [117]

<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>

begin
var (a,b,c):=ReadReal3;
var d:=b*b-4*a*c;
if d<0 then Writeln('Корней нет')
else
    if d=0 then begin
      var x:=-b/2/a;
      Writeln('Корень уравнения x=',x)
      end
    else begin
      var x1:=(-b-Sqrt(d))/2/a;
      var x2:=(-b+Sqrt(d))/2/a;
      Writeln('Корни уравнения: x1=',x1,', x2=',x2)
      end
end.

0 0

4 года назад

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