Program znanijacom;
uses crt;
var
n:string;
i,k,r,c,b:integer;
num:array [1..4] of char;
begin
writeln('vvedite celoe chislo <1000:');
read(n);
k:=length(n);
writeln('Cufr v chisle: ',k);
for i:=1 to k do
begin
num[i]:=n[i];
val(num[i],c,b);
r:=r+c;
end;
writeln('Ux cymma : ',r);
end.
1. Выбрал фигуру шестиугольник
2. Комбинацией Shift + ЛКМ создал правильный шестиугольник
3. Выполнил разворот на 90 градусов
4. Провёл 1 горизонтальную линию по середине шестиугольника.
5. Провёл 2 наклонных линии от углов верхней плоской части к нижним.
Таблица истинности - в прилагаемом файле.
Я сделала ввод массива с клавиатуры, но ты можешь сделать его рандомными числами
const N=5;
var A: array [1..N] of real;
i: integer;
begin
writeln('Введите массив');
for i:=1 to N do
readln(A[i]);
writeln('Положительные элементы:');
for i:=1 to N do
if A[i]>0 then
writeln('A[', i, ']=', A[i]);
end.
110001.011100110011001100110011001100110011001100110011002