Буду считать, что точка с запятой входит в текст
Количество символов: 22
а) Не знаю
б) 1 символ = 1 байт => 22 * 1 = 22 байта = 22 * 8 = 176 бит
в) 1 символ = 2 байта => 22 * 2 = 44 байта = 44 * 8 = 342 бита
//PascalABC.NET 3.2 сборка 1318
Var
n,first,oth:integer;
begin
readln(n);
first:=n mod 10;
oth:=n div 10;
if first<>0 then writeln(first,oth) else writeln('X не трёхзначеное');
end.
Пример ввода:
234
Пример вывода:
423
var a:real;
begin
readln(a);
a:=a/60; writeln('a=',a,'мин');
a:=a/60; writeln('a=',a,'час');
readln;
end.
I,k:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 13 do
begin
a[i]:=random(41)+10;
write(a[i],' ');
end;
writeln;
writeln('Массив после удаления 10-го элемента:');
for i:=10 to 12 do
a[i]:=a[i+1];
for i:=1 to 12 do
write(a[i],' ');
writeln;
writeln('Массив после удаления минимального элемента: ');
k:=1;
for i:=1 to 12 do
if a[i]<a[k] then k:=i;
for i:=k to 11 do
a[i]:=a[i+1];
for i:=1 to 11 do
write(a[i],' ');
writeln;
end.
var
a:array [1..7] of char;
i,k:integer;
begin
writeln('Введите массив:');
for i:=1 to 7 do
readln(a[i]);
writeln('Массив');
for i:=1 to 7 do
write(a[i],' ');
writeln;
writeln('Массив после удаления максимального элемента: ');
k:=1;
for i:=1 to 7 do
if a[i]>a[k] then k:=i;
for i:=k to 6 do
a[i]:=a[i+1];
for i:=1 to 11 do
write(a[i],' ');
writeln;
end.
Делаешь один большой круг. Выделяешь его и копируешь. Копию немного уменьшаешь и помещаешь внутрь 1 ого круга. Затем выделяешь эти 2 круга , копируешь и вставляешь внутрь первых 2 . И так далее...
