//Попробуем по-новому
var n:integer;
begin;
readln(n);
var ar:=ArrRandomInteger(n+1,10,99);
var i:=1;
while i<=n do
begin;
write(ar[i]:4);
i:=i+2;
end;
<span>end.</span>
var
a, b, c: real;
begin
writeln('Введите 3 любых числа');
readln(a, b, c);
if (a < b) and (a < c) then writeln(a, ' - наименьшее число');
if (b < a) and (b < c) then writeln(b, ' - наименьшее число');
if (c < a) and (c < b) then writeln(c, ' - наименьшее число');
if (a > b) and (a > c) then writeln(a, ' - наибольшее число');
if (b > a) and (b > c) then writeln(b, ' - наибольшее число');
if (c > a) and (c > b) then writeln(c, ' - наибольшее число');
readln; //Убрать если среда разработки не Turbo Pascal
end.
При использовании 2 цветов для хранения одной точки изображения требуется log(2)2 = 1 бит.
Память для всего изображения = 800*600*1 бит = 800*600/8 байт = 60000 байт
1) программа пропускает если ввести пароль basic иначе так и продолжает его спрагивать
2) запрашивает число, выводит его квадрат и куб через табуляцию, выводит его куб и квадрат прям без пробелов одним числом
выводит его куб и квадрат с текстовыми пояснениями
3) 5 линий слева направа нисходящие
4) 3 точки и 3 линии, одна вертикальная одна слева направа восходящая и из последней ее точки в в лево линия
5) построится подобие координатной плоскости и синусоида но точками и для угла от -10 до 10 радиан с шагом 0.01
Program vozrast1;
var a,b:integer;
begin
write ('введите ваш возраст');
readln(a);
if a>=18 then write ('ok') else if (a>=14) and (a<18) write ('with parents');
if a<14 then write ('no');
end.