Var N,S: integer;
begin
N:=0;
S:=0;
while s<=47 do
begin
N:=n+1;
S:=s+2;
end;
write(N);
end.
Ответ: 24
1) программа пропускает если ввести пароль basic иначе так и продолжает его спрагивать
2) запрашивает число, выводит его квадрат и куб через табуляцию, выводит его куб и квадрат прям без пробелов одним числом
выводит его куб и квадрат с текстовыми пояснениями
3) 5 линий слева направа нисходящие
4) 3 точки и 3 линии, одна вертикальная одна слева направа восходящая и из последней ее точки в в лево линия
5) построится подобие координатной плоскости и синусоида но точками и для угла от -10 до 10 радиан с шагом 0.01
Fat адресует шестнадцати-разрядным адресом, а Fat 32 - тридцатидвух-разрядным.
Var
a,b,c:real;
begin
read(a,b,c);
if (a=b) or (b=c) or (a=c) then
writeln('Треугольник равнобедренный');
else
writeln('Треугольник не равнобедренный');
<span>end.</span>