Паскаль цикл со счетчиком. 1)даны трёхзначные натуральные числа n и k (n < k). из чисел от n до k найти все, запись которых содержит ровно две одинаковые цифры. например, числа 266, 661, 767, 776 – содержат ровно 2 одинаковые цифры. 2)дано два целых положительных числа a и n, вводимых с клавиатуры (выполнить проверку на выполнения данного условия). найти a^n и n^a.
159
353
Ответы на вопрос:
№1 //pascalabc.net (версия 3.1, сборка 1198 от 11.03.2016) №1 var a, b, i, s1, s2, s3,k: integer; begin a : = readinteger('введите первое трехзначное число'); b : = readinteger('введите второе трехзначное число'); for i : = a to b do begin k: =0; s1 : = i mod 10; k: =1; s2 : = (i div 10) mod 10; if s2=s1 then k: =k+1; s3 : = (i div 100)mod 10; if s3=s1 then k: =k+1; if k = 2 then println(i); end; end. тестовое решение: введите первое трехзначное число 100 введите второе трехзначное число 200 100 101 121 122 131 133 141 144 151 155 161 166 171 177 181 188 191 199 200 №2 //pascalabc.net (версия 3.1, сборка 1198 от 11.03.2016) var a,b,n: integer; p: biginteger; begin repeat a: =readlninteger('введите a'); n: =readlninteger('введите n'); until (a> 0) and (n > 0); p: =1; for var i: =1 to n do begin p: =p*a; end; println(a, 'в степени', n,' = ',p); p: =1; for var i: =1 to a do begin p: =p*n; end; println(n, 'в степени', a,' = ',p); end. тестовое решение: введите a 2 введите n 3 2 в степени 3 = 8 3 в степени 2 = 9
По . правильный ответ - 12 мин.. за минуту первый сделает 1/20часть работы, а второй 1/30. т.е. вместе 5/60 частей работы или 1/12, следовательно всю работу 12/12 они сделают за 12 мин. или вам нужно блок-схему? решение на языке программирования?
Популярно: Информатика
-
Рита737308.01.2020 22:43
-
ololosha1415.05.2021 05:19
-
alena1202200410.01.2022 04:12
-
arina123812.11.2021 10:32
-
657алЕНА08.04.2023 15:29
-
dasha2001567813.02.2022 07:30
-
ЕлизаветаВернер28.01.2022 19:38
-
cazydays07.06.2023 15:49
-
ahmadieva0519.06.2023 09:40
-
Mukadas120817.11.2020 20:20