А) кара, б) кот в) парк, пара, фара, фура, мура г) ложа, кожа
Const
handsfree = true;
var
a: array[1..100] of real;
i, n: integer;
sum: real;
begin
{ввод массива}
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100) - 50;
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
if a[i] < 0 then {если нужен фильтр}
sum := sum + a[i];
writeln('sum = ', sum);
end.
6.
350 Кбайт = 350*1024 байт = 350*1024*8 бит
Необходимая память для хранения одного пикселя =
350*1024*8 / (1280*320) = 7 бит
Количество цветов = 2^7 = 128
7.
Объем файла =
16*8*8000 бит = 16*8*8000 / 8 байт = 16*8000 / 1024 Кбайт = 125 Кбайт
8.
280 Гбайт = 280*1024 Мбайт
Количество CD = 280*1024 / 700 = 409,6 ≈ 410
1)
//Pascal ABC.Net
Var a:array[1..4] of longint;i,min:longint;nom:byte;
Begin
for i:=1 to 4 do
read(a[i]);
min:=a[1];
nom:=1;
for i:=2 to 4 do
if (a[i]<min) then begin min:=a[i]; nom:=i; end;
for i:=1 to 4 do
if (i<>nom) then write(a[i],' ')
else begin write(a[i]*a[i],' '); nom:=0; end;
writeln;
End.
Тесты
Входные данные: 2 3 4 5
Выходные данные: 4 3 4 5
Входные данные: 10000 10001 10002 10003Выходные данные: 100000000 10001 10002 10003
2) Зарезервированные слова - проще говоря, это слова, которые нельзя указывать как имена переменных или констант. Список всех слов в языке Паскаль:
Absolute — Абсолютный
And — Логическое И
Array — Массив
Begin — Начало блока
Const — Константа
Div — Деление нацело
Goto — Переход на
Do — Выполнять
Downto — Уменьшить до
Else — Иначе
End — Конец блока
File — Файл
For — Для
Function — Функция
If — Если
Interrupt — Прервать
Interface — Интерфейс
Label — Метка
Library — Библиотека
Mod — Остаток от деления на
Not — Логическое НЕ
Or — Логическое ИЛИ
Of — Из
Object — Объект
Procedure — Процедура
Program — Программа
Repeat — Повторять
String — Строка
Then — Тогда
To — Увеличивая
Type — Тип
Until — До
Uses — Использовать
Var — Переменная
While — Пока
With — С
Xor — Исключающее ИЛИ
И т.д.
В основном при написании они все выделяются жирным шрифтом (в Pascal)
3)
1. Имя программы
2. Раздел подключения модулей
3. Раздел описаний
Begin
4. Операторы
End.
var x:integer;
begin
writeln('введите число');
readln (x);
case x of
0:writeln ('Zero');
1:writeln ('One');
2:writeln ('Two');
3:writeln ('Three');
4:writeln ('Four');
5:writeln ('Five');
6:writeln ('Six');
7:writeln ('Seven');
8:writeln ('Eight');
9:writeln ('Nine');
end;
end.