Program qwer;
uses crt;
var s, r, d, l: real;
Begin
write('Площадь круга: ');
readln(s);
r := sqrt(s / 3.14);
d := r * 2;l := 2 * 3.14 * r;
writeln('Диаметр: ',d);
writeln('Длина окружности: ',l);
<span>End.</span>
1)Y=1
S=0
повтори 10 раз (
если элемент массива под номером Y больше Х то S=S+элемент массива под номером Y;
Y=Y+1);
Вывод на экран S
2)Y=1
S=0
повтори 10 раз (
если остаток от деления на 10 элемента массива под номером Y равен 5 то S=S+1;
Y=Y+1);
Вывод на экран S
231=11100111(в двоичной)
231=153(в восьмеричной)
231=817(в шестнадцатиричной)
Program chai;
var
x:float;
begin
writeln("vvedite summu sheta");
readln(x);
x=x+x*0.15;
writeln(x);
end.