В трехзначном числе х зачеркнули 1 цифру.Когда оставшиеся число умножили на 10,а произведение сложили с первой цифрой числа х,то получилось 564.Найти х.
10-11 класс
|
В Pasсal.
var
x, a, b, c, y: integer;
begin
Write('Введите целое трехзначное положительное число ->');
Readln(x);
a := x mod 10;
y := 100 * a + (x div 10);
Writeln('Первоначальное число было: ', y);
b := y mod 100;
Writeln('Зачеркнули первую цифру: ', b);
b := 10 * b;
Writeln('Умножили на 10: ', b);
b := b + (y div 100);
Writeln('Прибавили зачеркнутую цифру: ', b);
Writeln('И получили введенное нами число - результат')
end.
Тестовое решение:
Введите целое трехзначное положительное число ->183
Первоначальное число было: 318
Зачеркнули первую цифру: 18
Умножили на 10: 180
Прибавили зачеркнутую цифру: 183
И получили введенное нами число - результат
Другие вопросы из категории
хотя если вывод поставить в процедуру тогда все нормально.
program kr_pr_4;
procedure fgerona(a,b,c:real);
var
p,s:real;
begin
p:=(a+b+c)/2;
s:= sqrt(p*(p-a)*(p-b)*(p-c));
end;
var
a,b,c,s,p:real;
begin
writeln('Введите сторону А');
read(a);
writeln('Введите сторону B');
read(b);
writeln('Введите сторону C');
read(c);
fgerona(a,b,c);
writeln('S = ',s);
end.
For i:= 0 to 14 do A[i]:= A[i+1]
Задание то же самое, что и в предыдущем.
2. Дан фрагмент программы, обрабатывающий одномерный массив k размером n.
k:= A[i];
For i:= 1 to n-1 do A[i]:=A[i+1];
A[n]:= k;
Что делает данный алгоритм?
1)Натуральное число n называется простым если оно делится только на 1 и на само себя.по соглашению 1 не считают простым числом. Проверить является ли n простым числом
2)Найдите и выведите на экран все трехзначные числа кратные 3, сумма цифр которых больше суммы цифр частного от деления их на 3
Вводятся a,b,c. Найти количество положительных чисел.
Читайте также
написать программу, которая отвечает на вопрос " существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k?"
Входные данные: Два числа N(1<=N<=10000000000),k (1<=k<=100)
Выходные данные: Программа выводит два таких числа, если они существуют,"NO"- если нет.
которая отвечает на вопрос: "Существуют ли два последовательных числа, не превосходящих , сумма цифр каждого из которых делится на ?"
Входные данные. Два числа
Выходные данные. Программа выводит два таких числа, если они существуют, "NO" - если нет.
написал такую программу:
var n:longint;
begin
read(n);
while n>10 do
begin
n:=n mod 10
end;
write(n);
end.
1)Напишите,что выведет эта программа при вводе числа 1984.
2)Приведите пример числа,при вводе которого программа выдаст верный ответ.
3)Найдите в программе все ошибки.
1. прибавь 2
2. прибавь 3
3. умножь на 10
Выполняя первую из них, Калькулятор прибавляет к числу на экране 2, выполняя вторую – прибавляет 3, а выполняя третью – умножает его на 10.
Запишите порядок команд в программе получения из числа 1 числа 434, содержащей не более 6 команд, указывая лишь номера команд.