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

Составить программу ввода с клавиатуры элементов массива а(1..10)и вывода элементов массива в столбец

👇
Ответ:
NeZoX11111111
NeZoX11111111
08.10.2022

Program Program1;
Var
a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
write('Введите ',i,' элемент массива: ');
readln(a[i]);
end;
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
end.

4,4(95 оценок)
Открыть все ответы
Ответ:
СоваИгорь
СоваИгорь
08.10.2022
Это фонЭто не знаю Это главный герой(и) на твоей сценеОно расположено там же где и сцена , а на сцене расположен фонНужно нажать правой кнопкой мыши на спрайт ,и выбрать "дублировать"

    6. Нужно нажать правой кнопкой мыши на спрайт ,и выбрать "дублировать"

    7.Нужно нажать правой кнопкой мыши на спрайт ,и выбрать "изменить размер объекта"

    8. Когда флажок нажат :

        Когда клавиша пробел нажата:

        идти ... шагов

        если край, оттолкнуться

        играть звук ...

        перейти к костюму : ...

        следующий костюм

        опустить перо

        поднять перо

        установить цвет пера: ...

        установить эффект: ... в значение: ...

        ждать: ... секунд

        если: ...

        повторять пока не

        повторять всегда

        повторить: ... раз

        остановить скрипт

        остановить всё

       

4,4(4 оценок)
Ответ:
Begin
  var a: integer;
  readln(a);
  for i: integer := 1 to abs(a) do
    if (a mod i = 0) then
      writeln('> ', i);
end.

function Simple(a: integer): boolean;
begin
  result := true;
  for i: integer := 2 to (a div 2) do
    if (a mod i = 0) then
     begin
      result := false;
      break;
    end;
end;

begin
  var a: integer;
  readln(a);
  writeln(Simple(a));
end.

var
  a: integer;

begin
  readln(a);
  for i: byte := length(a.ToString()) downto 1 do
    write(a.ToString()[i]);
end.

function Simple(a: integer): boolean;
begin
  result := true;
  for i: integer := 2 to (a div 2) do
    if (a mod i = 0) then
     begin
      result := false;
      break;
    end;
end;

function par(a: integer): string;
begin
  for i: byte := length(a.ToString()) downto 1 do
    result += a.ToString()[i];
end;

  
begin
  var a: integer;
  readln(a);
  for i: integer := 1 to abs(a) do
    if ((a mod i = 0) and (Simple(a)) and (par(a) = inttostr(i))) then
      writeln('> ', i);
end.
4,5(59 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ