Общение
вербальное невербальное
разговаривать сотрудничать общаться
<span>процесс установления и развития контактов </span>
<span>коммуникабельность
</span>
Хмм... Про кодировку ни слова, так что, надеюсь, это не Unicode.
На один символ обычно в таких задачах отводится 1 байт.
значит 80 символов = 80 байт.
в 30 строках 30* 80 байт = 2400 байт.
на каждой странице по 30 строк, а страниц 6, значит 6 * 2400 байт = 14 400 байт
Program anima;
Var a,b,c:integer; // Стороны треугольника
begin
writeln('Введите длины сторон: '); // Вывод на экран с последующей строкой
readln(a,b,c); // Вводимые переменные (стороны)
if (a=b) and (a=c) and (b=c) then // Условие
writeln('Треугольник равносторонний')
else
writeln('Треугольник не равносторонний');
readln;
<span>end.</span>
Хранение информации человек-мозг. компьютер-память
Uses crt;
type mas=array[1..1000] of integer;
var a:mas;
n,i:integer;
procedure gnomesort(var arr:mas; size : Integer);
var i, j, t : Integer;
begin
i := 2;
j := 3;
while i <= size do
begin
if arr[i-1] <= arr[i] then
begin
i := j;
j := j + 1
end
else
begin
t := arr[i-1];
arr[i-1] := arr[i];
arr[i] := t;
i := i - 1;
if i = 1 then
begin
i := j;
j := j + 1
end
end
end;
end;
begin
write('Размер массива n=');
read(n);
writeln('Исходный массив:');
for i:=1 to n do
read(a[i]);
writeln;
gnomesort(a,n);
writeln('Результат сортировки:');
for i:=1 to n do
write(a[i],' ');
end.
