E:\TOM3\Doc3
Мне кажется, что DOC3 - это просто отвлечение, т.к. папка не ведет к нужному файлу
Вам вряд ли задали так сделать, но всё же.
var a,b:integer;
d:string;
begin
writeln (' введи число');
readln(b);
Str (b, d);
for a:=length(d) downto 1 do begin
write(d[a]);
end;
writeln('');
end.
лучше так напиши.
var a,b,c:integer;
begin
write('введите число=> ');
readln(a);
write('обратное число=> ');
while (a<>0) do begin
b:=a mod 10;
write(b);
a:=a div 10;
end;
end.
Скопировать: Ctrl+C Вставить Ctrl+V
1.program plo;
program plo;
var a, b, y: integer;
s:real;
const pi=3.14;
begin
writeln('Длина сторон: ');
readln(a, b);
writeln('Угол: ');
readln(y);
s:=0.5*a*b*sin(y*pi/180);
writeln('S= ', s)
end.
2. program V;
var a, b: integer;
s1, s2:real;
const pi=3.14;
begin
writeln('Высота H= ');
readln(a);
writeln('Радиус R= ');
readln(b);
s1:=pi*a*sqr(b);
s2:=pi*a*sqr(b)/3;
writeln('Объем цилиндра = ', s1);
writeln('Объем конуса = ', s2);
end.