Program n1;
var r: real;
begin
writeln('введите ребро куба');
readln(r);
writeln('S грани =',sqr(r));
writeln('S полной поверхности =',sqr(r)*6);
writeln('V куба =',r*r*r);
end.
Примеры алгоритмов.( если нужен пример программы обратитесь в ЛС).
1- Ветвление.
If a>=0 then
S:=S+a
else
S:=S-a;
2- "С повтором" или циклический.
For i:=1 to 6 do
S+1;
или
while i<5 do
i:=i+1;
3-Линейный.
S:= a;
i:=S+z; и.т.д. (Не имеется циклов)
1.
Program zavdannia;
var x,y: real;
begin
read(x);
y:=(x+4)/(x-2);
write(y);
end.
2.
Program zavd2;
var x,y: real;
begin
y :=sqrt((x*x-4*x-4)/(x-8);
write(y);
end.
I=1
while i<=30:
if i % 2 == 0 and i % 3 == 0 and i%4!=0:
print(i)
i+=1