var
s, r, l: real;
begin
read(r);
s := pi * r * r;
l := 2 * pi * r;
write(s:0:3, #10, l:0:3);
end.
Одномерный массив 1. Составьте программу ввода и вывода массива: 5, -2, 3, -6, 7, 9, -4, 8, 1, 2, 7, -3. 2. Составьте блок-схем
ТарасоваКсю
3)
const n=10;
var a:array [1..n] of integer; r,i:integer;
begin
r:=1;
for i:=1 to n do begin
a[i]:=r; inc(r,2); end;
for i:=1 to n do
write(a[i],' ');
end.
Суть шифра - заменяем букву на предыдущую по алфавиту английского языка.
Olymp
Nkxlo
Ответ: Nkxlo.
Program danya;
uses crt;
var i,k:integer;
begin
clrscr;
k:=0;
for i:=1000 to 9999 do begin
if (i mod 15=0) and (i mod 17 =0) then k:=k+1; end;
Writeln('Количество чисел= ', k);
readln;
<span>end.</span>