Конечно,ведь всего у двух их 7,а значит у одного может быть одно яблоко,а у другого 6
Const
n = 100;
var
a: array[1..n] of integer;
i: integer;
begin
//заполняем массив случайными значениями в диапазоне [0;100]
Randomize; //инициализация датчика случайных чисел
for i := 1 to n do a[i] := random(100);
i := 1; //1 - это два в нулевой степени
while i < n do
begin
writeln('a(', i, ')=', a[i]);
i := 2 * i; //удваиваем индекс, чтобы получить очередную степень двойки
end
end.
Результат работы программы:
a(1)=26
a(2)=21
a(4)=29
a(8)=74
a(16)=23
a(32)=44
a(64)=20
Под видами компьютерной графики подразумевается способ хранения и отображения изображения на плоскости монитора. Как и в любом другом искусстве в компьютерной графике есть свои специфические виды графических изображений. К ним относятся: растровое изображение; векторное изображение; трехмерное изображение; фрактальное изображение;
//PascalABC.NET 3.2 сборка 1318
uses
system;
type
animal=record
ani:string;
name:string;
yearOfBrith:integer;
weight:real;
food:real;
country:string;
end;
Const
n=10;
Var
zoo:array[1..n] of animal;
i,counter:integer;
coun:string;
begin
for i:=1 to n do
begin
writeln('Данные о животном #',i);
readln(zoo[i].ani);
readln(zoo[i].name);
readln(zoo[i].yearOfBrith);
readln(zoo[i].weight);
readln(zoo[i].food);
readln(zoo[i].country);
end;
write('Введите страну:');
readln(coun);
for i:=1 to n do
if zoo[i].country=coun then inc(counter);
writeln(counter);
writeln('Таблица норм пищи:');
for i:=1 to n do
writeln(zoo[i].name,':',zoo[i].weight*zoo[i].food);
writeln('Список животных, возраст которых больше 10 ');
for i:=1 to n do
if DateTime.Now.Year-zoo[i].yearOfBrith>10 then writeln(zoo[i].name);
end.
Логические величины - это понятия, выражаемые словами: ИСТИНА, ЛОЖЬ
В памяти компьютера логической величине ставится в соответствие один БИТ (двоичная цифра). Значению ИСТИНА соответствует бит, равный единице, а значению ЛОЖЬ - бит, равный нулю.
Логическая переменная - символически обозначенная логическая величина.
<span>Если известно. что <span>A, B, X, Y </span> и пр. - переменные логические величины, то это значит, что они могут принимать значения только ИСТИНА или ЛОЖЬ.</span>