4 года назад

Помогите пожалуйста задачу решить ввод:а и б ,вывести результаты сравнения

1 ответ:

0 0

Var
a,b:integer;
begin
Write('вводите a,b: ');
Read(a,b);
if a>b then Writeln('Первое число больше')
else
if a<b then Writeln('Второе число больше')
else Writeln('Числа равны')
end.

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

Статья, набранная на компьютере, содержит 16 страниц, на каждой странице 32 строки, в каждой строке 25 символов. Определите инфо

Sahara

Задача 1

Дано:

K = 16 * 32 * 25 шт = 12800 шт

i = 16 бит

I - ?

Решение:

I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)

Вес текста I = K * i = 12800 * 16 бит = 204800.0 бит

204800.0 бит = 25600.0 байт = 25.0 Кбайт

0 0

3 года назад

Помогите!!! Найдите минимальный объем памяти в килобайтах, достаточный для хранения растрового изображения размером 64х64 пиксел

DanilXXX [14]

Ответ:

1 бит

Объяснение:

Количество пикселей

64*64=4096

Цвет 512байт/4096=4096 бит/4096= 1бит

0 0

3 года назад

1.В двумерном массиве действительных чисел найти произведение отрицательных элементов больших -14; 2.Заменить к-й элемент одноме

Sionra [19]

program raf105;

var a:array[1..3,1..3] of integer;

i,j,x:integer;

begin

writeln('Введите 9 чисел по очереди');

x:= 1;

for i:=1 to 3 do

for j:=1 to 3 do

begin

readln(a[i,j]);

if (a[i,j] < 0) and (a[i,j] > -14)

then x *= a[i,j];

end;

writeln('Вывод: ',x);

end.

program raf105;

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

n,i,x:integer;

begin

writeln('Вводите 10 чисел по очереди: ');

x:= 1;

for i:=1 to 10 do

begin

readln(a[i]);

if ((a[i] mod 5) = 0) and (a[i] <> 0)

then x *= a[i];

end;

writeln('Введите число от 1 до 10');

readln(n);

a[n] := x;

writeln(n,'-й элемент массива заменён на число ',x);

for i:=1 to 10 do

writeln(a[i]);

end.

<em><u>Язык PascalABC</u></em>

0 0

4 года назад

Дано целое число X и натуральное N. Составьте алгоритм вычисления XN. Проверьте алгоритм трассировкой. Напишите программу на Пас

Denis Makaev [7]

Var
x, n, ans:integer;
begin
Readln(x, n);
while (n > 0) do
begin
ans := ans + x;
n:= n - 1;
end;
Writeln(ans);
end.

0 0

4 года назад

После выполнения команды присваивания x:=x+y значение переменной x равно 6, а значение переменной y равно 28. Чему были равны зн

zuek1 [28]

хз не реално хз сориэ

0 0

4 года назад