ikoooo43
14.03.2022 12:06

Чему равно а3
в массиве а[1,2,3,4,5]?
Паскаль

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
mrflux
19.08.2022 00:11

ОСНОВНЫЕ ВОЗМОЖНОСТИ ЭЛЕКТРОННЫХ ТАБЛИЦ

.  анализ и моделирование на основе выполнения вычислений и обработки данных

.  оформление таблиц, отчетов

.  форматирование содержащихся в таблице данных

. построение диаграмм требуемого вида

. создание и ведение баз данных с возможностью выбора записей по заданному критерию и сортировки по любому параметру

.  перенесение (вставка) в таблицу информации из документов, созданных в других приложениях, работающих в среде Windows

.  печать итогового документа целиком или частично

.  организация взаимодействия в рабочей группе (коллективное использование, то есть распространение и просмотр электронных таблиц всеми участниками рабочей группы

.  работа в Internet (поиск данных и публикация информации) с инструментария ЭТ

Объяснение:

0,0(0 оценок)
Ответ:
25690гений
11.03.2021 22:40
// 10.
var
  n: integer;
begin
  read(n);
  Write((n div 100 mod 2 = 0) or (n mod 10 mod 2 = 0) or (n mod 100 div 10 mod 2 = 0));
end.

// 11.
var
  n: integer;
  a,b,c:integer;
begin
  read(n);
  a:=n div 100; b:=n mod 100 div 10; c:=n mod 10;
  Write((a+b=c)or(a+c=b)or(c+b=a));
end.

// 12.
var
  n: integer;
  a,b,c,d:integer;
begin
  read(n);
  a:=n div 1000; b:=n mod 1000 div 10 div 10; c:=n mod 100 div 10; d:=n mod 10;
  Write(a+b+c+d-1=a*b*c*d);
end.

// 13.
var
  n,k: integer;
  a,b,c:integer;
begin
  Write('n,k= '); read(n,k);
  a:=n div 100; b:=n mod 100 div 10; c:=n mod 10;
  Write((b+c<k)and(a>5));
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота