Var a,b:real:
begin
read(a);
b:=a*0.91;
writeln();
write(&a,'m=',&b,'yards');
end.
var a:integer;
var s1,s2:string;
begin
inc(a);
write('Vvedite slovo: ');
readln(s1);
repeat
s2:=s2+s1[a];
a:=a+2;
until(a>length(s1));
writeln(s2);
readln;
end.
А) фигура похожая на М
б) фигура похожая на песочные часы - два равносторонних треугольника с общей вершиной. Типа таких:
_
∨
Δ
в) Равносторонний треугольник типа такого: |>
var
n, s: Integer;
begin
Write ('Введите натуральное число: ');
Read (n);
s := trunc (sqrt (n));
Writeln ('Целый квадратный корень из ' + IntToStr (n) + ' = ' + IntToStr (s));
Readln;
end;