4 года назад

Какие файлы пакуются плотнее всего? Вариант 1 тексты Вариант 2 рисунки Вариант 3 видео Вариант 4 звуки

Знания

Информатика

1 ответ:

Олеся Золотых4 года назад

0 0

2 я думаю такой ответ

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

Помогитеееееее номер 2

анатолий8989989 [17]

Ответ: 34

Объяснение:

a=16

b=a*3+a/2=56

c=b-a/4=56-16/4=52

c=b-a+c=56-16+52=92

a=a-c-2+b*2=16-92-2+56*2=34

0 0

3 года назад

Составить программу начисления стипендии группе студентов из 25 человек по итогам сессии из 5 экзаменов. Стипендия в размере 900

Rinasm

Program Stipendiya;
type
Student = record
Ocenka: array [1..5] of Byte;
end;
var
i, j: Byte;
Summa: Integer;
Troechik: Boolean;
Studenti: array [1..25] of Student;
begin
for i:=1 to 25 do
begin
// Zapolnyaem ocenki studentov:
WriteLn('Vvedite ocenki '+IntToStr(i)+' studenta: ');
for j:=1 to 5 do
begin
Write('Ocenka za '+IntToStr(i)+' ekzamen: ');
ReadLn(Studenti[i].Ocenka[j]);
end;
end;

// Chitaem summu

S:=0;

WriteLn('');

for i:=1 to 25 do
begin
//
Troechik:=False;
//
for j:=1 to 5 do
if Studenti[i].Ocenka[j] < 4 then Troechik:=True;
//
if not Troechik then
begin
WriteLn('Vidat stipendiu '+IntToStr(i)+' studentu');
Summa:=Summa + 900;
end;
end;

// Vivod summi vsex stipendii
WriteLn('Summa vsex stipendii = '+IntToStr(Summa));
end.

0 0

4 года назад

Народ,помогите пожалуйста,желательно с объяснением )

Маринетта0 [17]

4. Ответ: 2

Все числа меньше 5 увеличить на 1:

8, 1, 6, 2, 4 -> 8, 2, 6, 3, 5

Все чётные больше 5 разделить на 2:

8, 2, 6, 3, 5 -> 4, 2, 3, 3, 5

Удалить все нечётные цифры:

4, 2, 3, 3, 5 -> 4, 2

5. Ответ: 3

Законы де Мо́ргана:

¬ (a ∧ b) = ¬a ∨ ¬b

(Отрицание конъюнкции есть не что иное, как дизъюнкция отрицаний.)

¬ (a ∨ b) = ¬a ∧ ¬b

(Отрицание дизъюнкции есть не что иное, как конъюнкция отрицаний.)

Закон двойного отрицания:

¬ (¬a) = a

Раскроем скобки:

¬ (¬A ∧ ¬B ∧ C) = ¬(¬A) ∨ ¬(¬B) ∨ ¬ C = A ∨ B ∨ ¬ C

0 0

3 года назад

СРОЧНО! ДАЮ 30 БАЛЛОВ!Составить программу в Паскале, где с клавиатуры вводится число (нечетное), а на экран выводится квадрат (м

anastassius [24]

Ответ:

program ideone;

uses Math;

var

n, i, j: Integer;

begin

read(n);

for i := 0 to n-1 do

begin

for j := 0 to n-1 do

begin

if (j > 0) then write(' ');

write(Min(Min(i, j), Min(n-i-1, n-j-1))+1);

end;

writeln;

end;

end.

0 0

4 года назад

Помогите написать программу на паскале по строкам: например вводишь любую фразу, к примеру asdfghjkl, и нужно убрать несколько с

Versia [35]

Var
s:string;
begin
Writeln('Введите строку');
Readln(s);
Delete(s,1,2);
Writeln(s)
end.

0 0

4 года назад