Во free pascal?
Если хоче порисовать то скачай Basic
Ответ:
Приходишь ты домой из школы и видишь у себя на столе список дел, который тебе оставила мама. Там написано:
Пообедай, сделай уроки, помой пол, приготовь ужин.
Это алгоритм твоих действий :)
var
S: real;
i, k, l: integer;
begin
S := 1;
for i := 1 to 12 do
begin
k := 1; l := 1;
while (k <= i) do
begin
l := l * 3;
k := k + 1;
end;
S := S + 1 / l;
end;
writeln(S);
end.
-------------
function len(s: integer): byte;
var
i, l: byte;
begin
l := s;
while (l > 0) do
begin
l := l div 10;
inc(i);
end;
len := i;
end;
var
i: integer;
begin
i := 3;
repeat
i := i * 3;
until (len(i) = 6);
writeln(i);
end.
---------------
var
D, x: real;
y: integer;
begin
readln(x);
if (x > 0) then
for y := 1 to 5 do
D := D + (y + cos(x))
else
begin
D := 1;
while (y <= 10) do
begin
D := D * (y - x);
inc(y);
end;
end;
writeln('D = ', D);
end.
Можно предположить, что 150 рублей стоит доставка. Если общая стоимость покупок не менее 2000, то доставка бесплатно.
В общем. Начерти окружность, квадрат, прямоугольник, параллелограмм и ромб.
После чего пиши: Ни одна из предложенных фигур графически не похожа на другую - истинное. Все рисунки являются геометрическими фигурами - истинное.
Все фигуры имеют углы - ложное. Некоторые фигуры имеют объём - ложное.