Все категории

4 года назад

Паскаль. помогите пожалуйста

Знания

Информатика

1 ответ:

Дюк Белобород [1.1K]4 года назад

0 0

Она приймет значение 8

Читайте также

Соедини стрелками по смыслу.Что моделируем: С помощью чего: Устройство объекта диаграммы Эйлера-ВеннаРазмер объекта чертежаЦвет

Фитиль

Отношения между объектами - диаграммы Эйлера-Венна

Объект-фотографии

Стоимость объекта -числа

Р. об.- эскиз

Ф. р. об. - чертежа

Эл. с. об. -схемы

Цв. об.-рисунка

0 0

4 года назад

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

Дана сторона квадрата а. Составьте программу, которая будет вычислять его P и S и выводит на компьютер, написать программу

Ниночка85 [50]

var

a, p, s : integer;

begin

write('введите сторону квадрата a=');

readln(a);

p := a*4;

s := a*a;

writeln('периметр P=', p);

writeln('площадь S=', s);

end.

0 0

4 года назад

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

1 апреля три подружки Аня, Света и Оля решили разыграть одноклассников и договорились, что одна из них будет говорить только лож

nastyushash [825]

Свєта говорит правду
Аня неправду
Оля через раз но севодня не правду

0 0

4 года назад

Вычислите пропускную способность канала связи, если известно, что за 4 секунды было передано 5 файлов, каждый размером 128 байт

ЕЛЕНАКОЧЕТКОВА

Пропорция:

4 секунды - (5 * 128 = 640) байт

1 секунда - X

Решаем:

X = (1 * 640) / 4 = 640 / 4 = 160

Ответ:

Пропускная способность канала равняется 160 байт за одну секунду.

0 0

4 года назад

Помогите составить програму перевода из 10 в 2 число 100.

Шура14

Var

b:array[1..100001] of integer;

var a,c,i:integer;

begin

c:=0;

write('десятичное число: ');

readln(a);

while a<>0 do

begin

if a mod 2 = 0 then

begin

a:=a div 2;

c:=c+1;

b[c]:=0;

end;

if a mod 2 <>0 then

begin

a:=a div 2;

c:=c+1;

b[c]:=1;

end;

end;

write('двоичное число: ');

for i:=c downto 1 do

write(b[i])
end.

0 0

4 года назад