Var
a:Array [1..20] Of Integer;
i:Integer;
k:Integer;
Begin
write('Введите количество элементов массива не более 20:');
Read(k);
For i:=1 To k Do
Read(a[i]);
<span>End.</span>
Ответ:
204 800 бит
Объяснение:
16×32=512строк
512×25=12 800 символов
12 800×16=204 800 бит
если я правильно понял , что тебе нужно то ответ правильный (надеюсь)
Program n1;
var a,b:
integer;
beginwriteln ('введите число');
readln (a);
b:= a div 100;
a:= a mod 100;
a:=(a*10)+b;
writeln (a);
end.
program n2;
var a,b:integer;
begin
writeln ('введите год');
readln (a);
b:= a div 100;
writeln (a,' год относится к ',b+1,' столетию');
end.