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

Нужно перевести из pascal на python, ) uses graphabc,crt; var x,y,y0,ys,i,s: integer; k,q: real; begin setwindowsize(700,500); write('сколько секунд должны отсчитать часы? '); readln(s); setpencolor(clnavy); arc(200,410,200,-8,61); arc(400,410,200,119,-170); arc(200,70,200,-60,7); arc(400,70,200,173,-120); setbrushcolor(clsilver); setpencolor(clblack); rectangle(170,50,430,30); rectangle(170,450,430,430); floodfill(250,110,clskyblue); floodfill(250,410,clskyblue); k: =80; x: =300; q: =0; for y: =130 to 230 do begin setpencolor(clnavy); line(round(x-k),y,round(x+k),y); k: =k-q; if y mod 25=0 then q: =q+0.45; end; k: =80; x: =300; q: =0; y0: =430; for y: =130 to 230 do begin setpencolor(clskyblue); line(round(x-k),y,round(x+k),y); k: =k-q; if y mod 25=0 then q: =q+0.45; setpencolor(clnavy); line((x-100),430,x,y0); line(x,y0,(x+100),430); sleep(10*s); y0: =y0-1; for i: =1 to 20 do begin ys: =random(151)+250; putpixel(300,ys,clnavy); end; for i: =1 to 20 do begin ys: =random(101)+230; putpixel(300,ys,clskyblue); end; end; setpencolor(clskyblue); line(300,250,300,330); setpencolor(clnavy); arc(200,410,200,-8,61); arc(400,410,200,119,-170); arc(200,70,200,-60,7); arc(400,70,200,173,-120); setbrushcolor(clsilver); rectangle(170,50,430,30); rectangle(170,450,430,430); writeln(s,' секунд истекло! '); end.

👇
Открыть все ответы
Ответ:

34

Объяснение:

Число X даёт остаток 1 при делении на 3, остаток 0 при делении на 2 и остаток 4 при делении на 5, значит, исходное число можно представить как X = 3a + 1 = 2b = 5c + 4 (числа a, b, c — натуральные или 0).

Рассмотрим равенство 2b = 5c + 4. Число 5c + 4 — чётное, значит, c также чётное (в противном случае мы получим произведение нечётных чисел, т. е. число нечётное, плюс чётное число — результат нечётный).

Рассмотрим равенство 5c + 4 = 3a + 1 ⇔ 5c = 3a - 3 = 3(a - 1) ⇒ число c делится на 3, но также c делится на 2 по равенству, значит, c делится на 6.

Сделаем последовательный перебор чисел c:

Если c = 0, то 5c + 4 = 4 < 10 — число не двузначное.Если c = 6, то 5c + 4 = 34. Действительно, 34 = 3·11 + 1 = 2·17 = 5·6 + 4

Значит, 34 — наименьшее искомое двузначное число.

4,6(73 оценок)
Ответ:
Ivanov11kk22
Ivanov11kk22
17.05.2023

1) Первый

Первая цифра числа Y = X mod 4:

Ряд первых 10 чисел которые подходят под правило X mod 4 = 1:

1, 5, 9, 13, 17, 21, 25, 29, 33, 37 (Δ=4)

Вторая цифра числа Y = X mod 3:

Из предыдущего пункта, двухзначные числа, которые попадают под правило X mod 3 = 0:

21, 33

Третья цифра числа Y = X mod 2:

Поскольку X – число нечетное, то оно обязательно будет иметь остаток 1.

Наименьшее число из выбранных – это 21.

ответ: 21

2) Второй

Воспользуемся простеньким уравнением:

(X % 4 * 100) + (X % 3 * 10) + (X % 2)=101

И проверим его в промежутке от 11 до 99.

Если число из промежутка подходит по условию и нечетное, то это наш ответ.

Пример программы приведен ниже.

// PascalABC.NET  

// Версия 3.4.2, сборка 1956 (01/30/19)

begin

 for var x := 10 to 99 do

   if ((X mod 4 * 100) + (X mod 3 * 10) + (X mod 2) = 101) and (X.IsOdd) then

   begin

     Println(x);

     break;

   end;

end.

Результат: 21

4,4(11 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ