В трехзначном числе x зачеркнули первую цифру. Найти исходное число

@Ynikum · Регистрация: 09.06.2010

Студворк — интернет-сервис помощи студентам

1) В трехзначном числе x зачеркнули первую цифру. Когда оставшееся число умножили на 10, а произведение сложили с первой цифрой числа x, то получили число 564. Найти число x.

2) Известны площадь круга и квадрата. Определить:
уместится ли круг в квадрате?
уместится ли квадрат в круге?
(есть решение но не уверен что правильно:
Program g;

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Var a,r,s1,s2:real;
Begin
  Write('введите площадь круга и квадрата');
  Readln(s1, s2);
  A:=sqrt(s2);
  R:=sqrt(s/3.14);
  If (r<a/2) then writeln (' круг уместится в квадрате')
    Else writeln (' круг неуместится в квадрате');
  If (a*sqrt(2))>(4*r) then writeln ('квадрат уместится в круге')
    Else Writeln('квадрат неуместится в круге');
  Readln
End. )

3) Дано натуральное число. Установить, является ли последовательность его цифр при просмотре их слева направо упорядоченной по возрастанию. Например, для чисел 1368 и 1669 ответ положительный, для числа 1782 – отрицательный и т.п.

4)С помощью датчика случайных чисел получить натуральные числа m и n, не превосходящие 20, n целых чисел, лежащих в диапазоне от a до b включительно, и m неотрицательных вещественных чисел, не превосходящих n. Значения a и b вводятся с клавиатуры.

ПОмогите плиз!!!!!

@кот Бегемот · 09.06.2010, 20:43

1) В трехзначном числе x зачеркнули первую цифру. Когда оставшееся число умножили на 10, а произведение сложили с первой цифрой числа x, то получили число 564. Найти число x.

Pascal
1
2
3
4
5
6
7
var
x:integer;
begin
for x:=100 to 999 do
if (x mod 100)*10+x div 100=564 then writeln(x);
readln;
end.

или

Pascal
1
2
3
4
5
6
7
var
x:integer;
begin
x:=564 div 10+4*100;
writeln(x);
readln;
end.

@Ynikum · 09.06.2010, 20:49 **[ТС]**

5)
Дан массив A размера N. Упорядочить его по возрастанию методом сортировки простым обменом («пузырьковой» сортировкой): просматривать массив, сравнивая его соседние элементы (A1 и A2, A2 и A3 и т. д.) и меняя их местами, если левый элемент пары больше правого; повторить описанные действия N – 1 раз. Для контроля за выполняемыми действиями выводить содержимое массива после каждого просмотра. Учесть, что при каждом просмотре количество анализируемых пар можно уменьшить на 1

Добавлено через 1 минуту
6)
Записать условие, которое является истинным, когда:
каждое из чисел A или B больше 100;
только одно из чисел A и B четное;
хотя бы одно из чисел A и B положительно;
каждое из чисел A, B, C кратно трем;
только одно из чисел A, B и C меньше 50;
хотя бы одно из чисел A, B, C отрицательно.

Покажите скои умения!!!

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Ynikum 5 / 3 / 2 Регистрация: 09.06.2010 Сообщений: 89
	09.06.2010, 20:49 [ТС]
	5) Дан массив A размера N. Упорядочить его по возрастанию методом сортировки простым обменом («пузырьковой» сортировкой): просматривать массив, сравнивая его соседние элементы (A1 и A2, A2 и A3 и т. д.) и меняя их местами, если левый элемент пары больше правого; повторить описанные действия N – 1 раз. Для контроля за выполняемыми действиями выводить содержимое массива после каждого просмотра. Учесть, что при каждом просмотре количество анализируемых пар можно уменьшить на 1 Добавлено через 1 минуту 6) Записать условие, которое является истинным, когда: каждое из чисел A или B больше 100; только одно из чисел A и B четное; хотя бы одно из чисел A и B положительно; каждое из чисел A, B, C кратно трем; только одно из чисел A, B и C меньше 50; хотя бы одно из чисел A, B, C отрицательно. Покажите скои умения!!! 0