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

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

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

↓

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

Usdied

30.12.2021 14:25

Дана точка с координатами (x,y), где x,y — целые числа, отличные от нуля. напишите программу, которая определяет в какую координатную четверь (1, 2, 3 или 4) попадет точка....

alievvusal57vusal

07.03.2022 07:14

Не получается решить : с 1) сколько единиц в двоичной записи числа 8^2018 – 4^1305 + 2^124 – 58? 2)определите число n, для которого выполняется равенство 143n + 256 = 138n+1....

кек32118

17.06.2020 04:22

Определите, что какое значение s будет выведено в результате работы следующего фрагмента программы: s=6 k=3 нц пока k 60 s=s+k k=k+3 кц вывод s...

sergeu3522p09njx

29.06.2022 11:38

Для поступления в институт школьнику умнову необходимо сдать 4 экзамена: , , и . напишите программу для подсчета среднего , полученного школьником на вступительных экзаменах....

DARKxSHADOWxYT

16.09.2021 15:34

Имеется массив целых чисел размером N (задается константой). Заполнить его случайными целыми числами в заданном диапазоне (вводится с клавиатуры). Вывести его на экран....

е7гроошишгини

15.10.2022 09:58

Дан массив, заполненный случайными целыми числами в диапазоне от -30000 до 30000. Напишите подпрограмму, которая определяет минимальное значение среди двузначных положительных...

mightwood1337

07.01.2023 02:42

Как сделать так что бы этот график был вниз ну к примеру разрядился за час? (Хочу обмануть продавца на алике)...

lfybk2001zp099tv

23.08.2021 03:31

Решите задачу в PascalABC и составьте блок-схему, с оператора выбора CASE Вычислить следующую функцию: Тест 1. b=3, x=3, Результат y = 4 Тест 2. b=4, x=4, Результат y =...

NASRETDINOV1

19.01.2023 07:43

(Form application c++)Заполните массив а[n][n] случайными числами в интервале [-200; 200]. Значения N и M вводится через компоненту TextBox. Вывести элементы побочной диагонали...

Andriuy2003

18.09.2020 03:13

В деревянном кубике с длиной ребра a=12 см осталась полость, которую потом полностью залили ртутью и герметично закрыли. Давление, которое стал оказывать кубик на горизонтальный...

Ответ:

112234848

23.07.2020 16:59

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

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

Ответ:

sashaageev04

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 Оформи подписку