Задать вопрос!

Задать вопрос!

Все категории

4 года назад

5

Срочно помогите составить программу в паскале!!! Дано трехзначное число.

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

Информатика

1 ответ:

Люда284 года назад

0 0

Beginvar a:=Readinteger('Введите число');write(a mod 100*10+a div 100);end.

Читайте также

Pasсal ABC.net Помогите,пожалуйста Даны два натуральных числа n и m. Составить программу, которая находит первое число в интерва

Ali31

Var
   n,m,d,k,Max,Maxk:integer;
Begin
Write('n = ');ReadLn(n);
Write('m = ');ReadLn(m);
Maxk:=0;
For n:= m downto n do
    Begin
    if n>1 then k:=2
    else k:=1;
    d:=n div 2;
    While d>1 do
       Begin
       if n mod d = 0 then k:=k+1;
       d:=d-1
       End;
    if k>=Maxk then
       Begin
       Maxk:=k;
       Max:=n;
       End;
    End;
WriteLn('Искомое число: ',Max);
WriteLn('Количество делителей этого числа: ',Maxk);
End.

0 0

3 года назад

Помогите, плиз, задачей) Полность, пжл, решение напишите) В княжестве есть только черные, белые и серые автомобили. Белых автомо

Ашэс

Пусть Х - количество черных автомобилей
У - количество серых
Рч = x/(x+y+18)
$\frac{x+y+18}{x} = 2^{7}$
$\frac{x+y+18}{x}$ = 128
x+y+18 = 128x (1)
P(не серый) = (х+18)/(x+y+18)
$\frac{x+y+18}{x} = 2^{5}$
$\frac{x+y+18}{x}$ = 32
x+y+18 = 32x+576 (2)
из того что, левые части выражений (1) и (2) равны, следует что равны и правые части, получим
128х=32х+576
96х = 576
х=6
Ответ: 6 черных автомобилей

0 0

4 года назад

Помогите дополнить таблицу!!!

Мариука 34

2 - (командир полка) - для поддержания дисциплины в полке.
3 - для поддержания порядка в государстве.
4 - для поддержания порядка в кабинете.
5 - чтобы знать, как пользоваться компьютером.
6 - чтобы правильно решить задачу.

0 0

4 года назад

Какой тип подходит для хранения данных: 1)Фамилия пользователя 2)Наличие судимости у кандидата в депутаты 3)Шестнадцатеричная ци

sasa [1]

1, 4,6,11,
Вроде так незнаю

0 0

1 год назад

Определить функцию, позволяющую распознавать наличие вещественных корней в квадратном уравнение. Делфи или Паскаль

дронго1982 [7]

<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>

begin
var HasReal:(real,real,real)->boolean:=(a,b,c)->b*b-4*a*c>=0;
Writeln(HasReal(5.5,-3,4.2));
Writeln(HasReal(1,-2,-6))
end.

<u>Результат</u>
False
True

Первая строка - определение функции HasReal, остальные две - примеры обращения к ней.

0 0

2 года назад