М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
мрамар
мрамар
16.02.2023 00:08 •  Информатика

) Створіть проект в якому Мітка буде переміщуватись на 30 пікселів праворуч під час наведення на неї вказівника. Після того як Мітка

зникне за правою межею вікна, вона повинна з'явитися біля лівої її

межі. ​

👇
Открыть все ответы
Ответ:
polinaguskova
polinaguskova
16.02.2023

program mas;

var

 massive: array[0..1000] of integer;

 n, i: integer;

begin

 massive[0] := 2;

 write('Введите количество элементов массива: ');

 read(n);

 for i := 0 to n - 1 do

 begin

   write(massive[i], ' ');

   massive[i + 1] := massive[i] + 2;

 end;

end.

Объяснение:

Максимальный размер массива - 1001 элемент.

program mas;  // Название программы

var

 massive: array[0..1000] of integer;  // Целочисленный массив

 n, i: integer;  // Переменные, отвечающие за количество чисел в массиве и счётчик.

begin  // Начало программы

 massive[0] := 2;  // Первое значение массива = 2

 write('Введите количество элементов массива: ');  // Вывод сообщения в консоль

 read(n);  // Считываем значение переменной n с клавиатуры

 for i := 0 to n - 1 do  // Идём от 0 до n - 1 индекса (n - 1, т. к. идём с нулевого индекса)

 begin  // Начало цикла

   write(massive[i], ' ');  // Вывод значения массива с индексом i

   massive[i + 1] := massive[i] + 2;  // Следующий элемент массива = текущий элемент массива + 2

 end;  // Конец цикла

end. // Конец программы

4,8(96 оценок)
Ответ:
Ytbjfdg
Ytbjfdg
16.02.2023
Var
a:array[1..100,1..100] of integer;
c:array[1..20,1..20] of real;
b:array[1..20,1..20] of real;
i,j,n,k:integer;
t:real;
r:integer;
begin
randomize;
t:=0;
Writeln('Введите порядок матрицы: ');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
a[i, j] := random(10); 
end;
for i:=1 to n do
for j:=1 to n do
begin
b[i,j]:=1/i+j-1;
end;
for i:=1 to n do
for j:=1 to n do
begin
for k:=1 to n do
begin
t :=t+a[i,k]*b[k, j];
end;
c[i,j]:=t;
t:=0;
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(' ',c[i,j]:2:2);
end;
Writeln;
end;

end.
4,5(82 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ