N=16 цветов
N=2^i;
16=2^4 => i=4 бит на пиксель
k=<span>25×25 = 625 пикселей
I=k*i=</span><span>625*4=2500 бит</span>
Ввести массив
проверяет условие и выводит количество чисел:
<span>for i:=1 to 12 <span>do
</span></span>k=0;
if (A[i] mod 5=0) and (A[i] mod 3=0) then k=k+1;
writeln(k); end.
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.
Устройства ввода и вывода данных Устройства ввода и вывода - устройства взаимодействия компьютера с внешним миром: с пользователями или другими компьютерами. Устройства ввода позволяют вводить информацию в компьютер для дальнейшего хранения и обработки, а устройства вывода - получать информацию из компьютера.
Не за что)