3 года назад

Придумать СКАЗКУ по истории вычислительной техники. Буду очень благодарна!

Знания

Информатика

1 ответ:

Venom013 года назад

0 0

Механический мальчик-неудачник

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

Чему равна разность чисел A=24056 и B=1379? Результат запиши в шестнадцатеричной системе счисления

макс1987 [13]

Разность это A-B=x(22677) Открой калькулятор ---> Вид ----> Программист и слева выбери вместо dec --- > Hex. Отевт: 5895

0 0

4 года назад

Паскаль АВС. Дан массив из C чисел. Определить в нём самое маленькое положительное число.

Vadikkk

Const
N = 10; //Задаём размерность массива
Var
A: array[1..N] of integer; //Объявляем массив
i, B: integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
    A[i] := random(2*N+1)-N; //Заполняем массив случайными числами
    Write(' ',A[i]); //и выводим его на экран
End;
WriteLn;

B := A[N]; //В переменной B будет находится искомое число
For i:= 1 to N-1 do
    if (A[i] > 0)and(A[i] < B) then
      B := A[i];
WriteLn('Наименьшее положитиельное чилсо: ',B);
End.

0 0

4 года назад

1. Для кого будет информативно следующее сообщение? Выпущен новый тип краски, основанный на технологии сохранения структуры воло

родионка [223]

1)3
2)1
3)2
5)3
6)42*16=646
7)3
8)Прикладное ПО

0 0

4 года назад

Найти в 2-мерном массиве минимальный элемент. Количество строк и столбцов вводит пользователь. Массив заполнить случайными числа

Amur24

Program qwer;
uses crt;
var a : array[1..1000,1..1000] of integer;
i,j,x,y,min,max : integer;
begin
read(x,y);
min := 100;
max := 0;
for i := 1 to x do
for j:= 1 to y do
begin
a[i,j] := random(101);
if a[i,j] < min then min := a[i,j];
if a[i,j] > max then max := a[i,j];
end;
writeln(min);
write(max);
<span>end.</span>

0 0

3 года назад

Срочно! Помогите, пожалуйста Даны два различных числа a и b .Если a меньше b, то вычислить их произведение a*b, в противном случ

emmasim [6.3K]

Var a, b, rezultat: integer;

begin

writeln(`Введите значения a и b:`);
readln(a, b);

if a < b then
rezultat:=a*b
else
rezultat:=a*a-b*b

writeln(rezultat);

end.

0 0

3 года назад