№1 - вариант 2 (60 символов*16 бит=960 бит)
№2 - вариант 1 ( 66 символов*8 бит = 528 бит= 66 байт)
№3 - вариант 4 ( 67 символов*16 бит= 1072 бит)

№4 - вариант 3
(всего символов: 64*40*48= 122880, (122880*8 бит)/8/1024= 120 Кбайт)

№5 - вариант 2
(всего символов 64*40*64= 163840, (163840*16 бит)/8/1024= 320 Кбайт)

0 0

4 года назад

Pascal написать программу, для подсчета площади и периметра прямоугольника, если заданы стороны прямоугольника ( сделайте пожалу

RimmaSS

var

a, b, s, p: real;

begin

writeln('Введите длину прямоугольника:');

read(a);

writeln('Введите ширину прямоугольника:');

read(b);

s := a * b;

p := 2 * (a + b);

writeln('Площадь прямоугольника = ', p, #10, 'Периметр прямоугольника = ', s);

end.

0 0

4 года назад

Помогите пожалуйста округлить число 101100.010001 до 5 знаков после точки.Спасибо.

Анна Углицких

101100.01000 вот так вот

0 0

3 года назад

Прочитать ещё 2 ответа

Создать массив целых чисел при помощи случайных чисел в диапазоне от 0 до 25 размерностью 10 ,вывести его на экран, отсортироват

annikanik [508]

var a:array[1..10] of integer;

i,temp,j:integer;

begin

for i:=1 to 10 do begin

a[i]:=random (26);

write (a[i]:3);

end;

writeln;

for i:=1 to 10 do begin

for j:=1 to 10 do

if a[i]<a[j] then

begin

temp:=a[i];

a[i]:=a[j];

a[j]:=temp;

end;

for i:=1 to 10 do

write(a[i]:3);

end.

0 0

3 года назад