Уровень оценивание помогите???

Знания

Информатика

1 ответ:

Philosof [7]4 года назад

0 0

12 тысяч байт наверно

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

2. Пользователь работал с каталогом C:\Учеба\Математика\Задания. Сначала он поднялся на один уровень вверх, затем еще раз поднял

Трэйск

C:\Учеба\Биология\Оценки (4)

0 0

4 года назад

Рассказ, набранный на компьютере, содержит 2 страницы, на каждой странице 60 строк, в каждой строке 64 символа. Определите инфор

Константин14

2×60×64×8=61440 бит
61440÷8=7680 байт

0 0

4 года назад

Помогите составить программу на паскале!!! Пользователь вводит два числа. Если они не равны 10 и первое число четное, то вывести

Viktor132 [28]

Program zadacha;vara,b,sum,pr:integer;beginwriteln('vvedite dva chisla');readln(a,b);if (a<>10) and (b<>10) and (a mod 2 = 0)thenwriteln('a+b=',a+b)elsewriteln('a*b=',a*b);end.

0 0

3 года назад

Дана последовательность целых чисел, признаком конца которой служит 0. 0 не входит в последовательность. Найти среднеарифметичес

Наталья1812 [1K]

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
Writeln('S=',ReadSeqIntegerWhile(i->i<>0).Average)
end.

Пример
24 18 -25 14 6 11 0
S=8

0 0

4 года назад

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

Составьте программу поиска чаще всего встречающегося элемента массива С(М,М).

Danmed [4]

//PascalABC.NET 3.1 сборка 1200
begin
var n := ReadInteger('n=');
var a := MatrixRandom(n, n, 0, 10);
println(a);

var d := new System.Collections.Generic.Dictionary<integer, integer>();
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
 for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
 begin
 if d.ContainsKey(a[i, j]) then
 d[a[i, j]] += 1
 else
 d.Add(a[i, j], 1);
 end;

var p := d.OrderByDescending(x -> x.Value).First();
println('Чаще всего встречается ' + p.Key + ', ' + p.Value + ' раз');
end.

0 0

4 года назад