Var
r:real;
Begin
Write('Введите радиус круга: ');ReadLn(r);
WriteLn('Площадь круга: ',Pi*r*r);
WriteLn('Длина окружности: ',2*Pi*r)
End.
1.Шаблон документа<span> — это файл с расширением .dot, в котором содержатся набор стилей, а также настройки меню, панелей инструментов и сочетаний клавиш, элементы автотекста и макросы. </span>Шаблон<span> может также включать текст, предназначенный для вставки в создаваемые на его основе </span>документы<span>.
2.</span>При оформлении официальных документов (шапка, заголовок, основное содержание)
1-а
2-б
3-в
4-г
5-д
6-б
Очень лёгкий тест! Надеюсь что помогла.)
Предложенные фрагменты программы должны выполнять нахождение и вывод абсолютной величины суммы первых 1, 2, ...8 элементов массива А - всего 8 сумм. В реальности будут восемь раз выведены нули, потому что отсутствует фрагмент, в котором элементам массива А присваиваются какие-либо значения.
Блок-схемы достаточно одной, потому что все три фрагмента определяют одни и те же шаги алгоритма.
1. Pascal
var
A: array[1..100] of integer;
N, I, J: integer;
S: real;
begin
N := 8;
for I := 1 to N do
begin
S := 0;
for J := 1 to I do S := S + A[J];
S := abs(S);
writeln('S=', S:9:2)
end;
readln;
end.
2. QBASIC
DEFINT I-J, N, S
DIM A(100) AS INTEGER
N = 8
FOR I = 1 TO N
S = 0
FOR J = 1 TO I
S = S + A(J)
NEXT J
S = ABS(S)
PRINT S
NEXT I
END
3. Школьный АЯ (КуМИР)
алг слово(рез вещ s)
нач
цел таб A[1:100]
цел n,I,j
n:=8
нц для I от 1 до n
s:=0
нц для j от 1 до I
s:=s+A[j]
кц
s:=abs(s)
вывод s
кц
<span>кон</span>