Войти Регистрация Спроси ai-bota

Этим. паскаль. вывести на экран квадрат средней цифры пятизначного числа.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

оопда

04.10.2022 11:59

В Школе-лицее №8 для одарённых детей все не просто. Например, все номера кабинетов – это трёхзначные числа, в которых зашифрована информация об их местоположении. Но новенькие...

ДядяВасяПетросян

16.05.2020 01:19

Алиса и Боб стали королями в королевствах на множестве натуральных чисел. Подданными Алисы являются все натуральные числа, которые делятся на 3 без остатка, а все остальные...

катя19052

11.01.2021 21:49

Какие графические формы представления свернутой информации вам известны?...

golenkova240620

23.03.2022 05:59

2. Решите кроссворд. Какое слово получилось по вертикали? 1. 2. 3. 4. 5. 6. 1) Самый маленький элемент изображения на экране монитора 2) Расположение системных папок на компьютере...

EvgeniyNou

23.08.2022 00:02

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

flanyshkatop

17.04.2021 10:23

Написать программу, которая выводит на экран сумму целых чисел, записанных в одну строку через пробел в текстовом файле input.txt. Сумма чисел, содержащихся в файле, не превышает...

klimenkovlad598

17.10.2020 14:54

Вкаких ситуациях удобно представлять информацию в виде таблицы?...

kotovak27

05.11.2022 01:22

Обнаружен ли крахмал в галетах,чёрный хлеб,яблоко,если нанести на них йод...

Uliano4ka1

05.11.2022 01:22

Дененің айналу периодын 10с-қа тең деп алып, оның 10с ішіндегі бұрыштық ғы мен бұрылу бұрышын есептеп шығарыңдар...

pocemonpickachu

05.11.2022 01:22

Подготовьте рассказ любимый герой народной сказки...

Ответ:

UnderTakerDie

23.07.2020 16:59

Var a: integer;
begin
readln (a);
writeln (sqr((a mod 1000) div 100));
end.

0,0(0 оценок)

Ответ:

Qweres2000

23.07.2020 16:59

var
a,b,i : integer;
begin
readln (a);
for i := 1 to 2 do
a := a div 10;
b := sqr(a mod 10);
writeln (b);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку