Задумайте число,прибавте 12,вычеслите 6 и вычеслите 6.Какое число получилось?
var
r,h,s:real;
begin
Read(r);
h:=2*Pi*r;
s:=2*pi*sqr(r);
Writeln('Площадь круга: ', S:5:2);
Writeln('Периметр окружности: ', h:5:2);
end.
Ответ:
program pr1;
var
i: Integer;
begin
for i := 1000 to 9999 do begin
if (i div 10) mod 10 <> (i div 100) mod 10 then
Write (i, ' ');
end;
ReadLn;
end.
- - - - - - - - - - - - - - - - - - - - -
program pr2;
var
a, b, i: Integer;
begin
Write ('Введите А, В: ');
ReadLn (a, b);
for i := a to b do
if (i mod 2 <> 0) and (i mod 7 = 0) then
Write (i, ' ');
ReadLn;
end.
алг
нач
нц пока слева свободно
влево
кц
нц пока снизу свободно
вниз
кц
нц пока справа свободно
нц пока (сверху свободно) и (справа свободно)
вправо
вверх
закрасить
кц
нц пока (снизу свободно) и (справа свободно)
вправо
вниз
закрасить
кц
кон