Program zadacha1;
uses crt;
const N=5; //размер массива
var m:array[1..n] of integer;
i:integer;
Begin
Writeln('Исходный массив');
For i:= 1 to n do
//readln(m[i]); //для ручного ввода оставьте эту строку
begin // для
m[i]:=random(101)-50; // случайного
Writeln(m[i]); // эти
end; //
Writeln('Прямой вывод');
For i:=1 to n do
writeln(m[i]);
Writeln('Обратный вывод');
For i:=1 to n do
writeln(m[n+1-i]);
End.
Program zadacha2;
uses crt;
const N=5; // размер массива
var m:array[1..n] of integer;
i:integer;
Begin
Writeln('Исходный массив');
For i:= 1 to n do
//readln(m[i]); //для ручного ввода оставьте эту строку
begin // для
m[i]:=random(101)-50; // случайного
Writeln(m[i]); // эти
end; //
Writeln('Вывод');
For i:=1 to n do
if i mod 2 = 0 then writeln(m[i]);
End.
Program zadacha3;
uses crt;
const N=5; // размер массива
var m:array[1..n] of integer;
i:integer;
Begin
Writeln('Исходный массив');
For i:= 1 to n do
//readln(m[i]); //для ручного ввода оставьте эту строку
begin // для
m[i]:=random(101)-50; // случайного
Writeln(m[i]); // эти
end; //
Writeln('Вывод');
For i:=1 to n do
if (n+1-i) mod 2 <> 0 then writeln(m[n+1-i]);
End.
Поделитесь своими знаниями, ответьте на вопрос:
2-Световое табло состоит из цветных лампочек. Каждая лампочка может окрашиваться в четыре цвета: зелёный, черный, желтый и фиолетовый. Какое наименьшее количество лампочек должно находиться на табло, чтобы с его можно было передать 2078 различных сигналов? 3-Некоторый алфавит содержит пять различных букв. Сколько четырёхбуквенных слов можно составить из букв данного алфавита (буквы в слове могут повторяться)? 6-Для передачи секретного сообщения используется код, состоящий только из русских букв (всего используется 30 различных символов При этом все символы кодируются одним и тем же (минимально возможным) количеством битов. Определи информационный объём сообщения длиной в 320 символов. 11-Чему равна сумма чисел A=20345 и B=3278? ответ запиши в двоичной системе счисления. 12-Представь число −64510 в 2-байтовом формате: 13-Алгоритм вычисления значения функций F(n) и G(n), где n – натуральное число, задан следующими соотношениями: F(1) =5; F(n) =6⋅F(n–1) +7 ⋅ n, при n >1; G(1) =4; G(n) =5⋅G(n–1) + 3 ⋅ n, при n >1. Чему равно значение функции F(2) - G(2)? 14-Элементам массива присвоены следующие значения: M[2]: = 6; M[3]: = 6; M[4]: = 2; M[5]: = 7; M[6]: = 3. Затем выполняют следующие команды: С: = 0; for i : = 2 to 6 do if (i mod 2 = 0) then C: = C+ M[i] else C:= C-M[i]; Напиши значение С = 16- Запиши следующее высказывание в виде логического выражения: «Если я хорошо подготовлюсь по английскому языку, физике и биологии, то я получу пятерки или четверки высказывания: A – хорошо подготовлюсь по английскому языку; B – хорошо подготовлюсь по физике; C – хорошо подготовлюсь по биологии; Y – получу пятерки; M – получу четверки. Тогда составное высказывание будет записано следующим образом: W=(A∨B∨C)→(Y∨M) W=(A&B&C)→(Y&M) W=(A&B&C)→(Y∨M) W=(A&B&C)→(Y∨M)¯¯¯¯¯¯¯¯¯¯¯¯ 17-Артур, Вадим и Владимир нашли в земле сосуд. Рассматривая удивительную находку, каждый высказал по два предположения: Артур: «Это сосуд греческий и изготовлен в VI веке.» Вадим: «Это сосуд китайский и изготовлен он в III веке.» Владимир: «Это сосуд не греческий и изготовлен в IV веке.» Учитель истории сказал ребятам, что каждый из них прав только в одном из двух предположений. Где и в каком веке изготовлен сосуд? сосуд греческий и изготовлен в VI веке сосуд китайский и изготовлен в VI веке сосуд финикийский и изготовлен в III веке сосуд греческий и изготовлен в IV веке 22-Прямоугольный параллелепипед с ребрами 36, 72 и 108. Предикат: Vol(a, b, c, v):=Mult(a, b, z), Mult(z, c, v). За
begin
window.Init(0, 0, 600, 600, clwhite);
window.IsFixedSize := true;
pen.Width := 5;
line(50, 50, 500, 50, clred);
line(50, 50, 50, 500, clblue);
line(500, 50, 500, 500, clgreen);
line(50, 500, 500, 500, clyellow);
SetFontSize(30);
DrawTextCentered(50, 0, 500, 150, 'Имя');
DrawTextCentered(50, 130, 500, 200, 'Фамилия');
DrawTextCentered(50, 200, 500, 330, 'Отчество');
DrawTextCentered(50, 330, 500, 400, 'Год рождения'); DrawTextCentered(50, 400, 500, 500, 'Группа');
end.