Втрехзначном числе х зачеркнули 1 цифру.когда оставшиеся число умножили на 10,а произведение сложили с первой цифрой числа х,то получилось 564.найти х. в pasсal.

243

479

Посмотреть ответы 2

Ответы на вопрос:

BelkaDengiStol

Информатика

4,8(98 оценок)

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 и получили введенное нами число - результат

Ahamad

Информатика

4,5(91 оценок)

23 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program konfeti; uses crt; var x,m: real; {x-цена за килограмм, m-текущая масса} begin clrscr; m: =1.2; write('введите цену за килограмм конфет: '); readln(x); while (m< 2.1) do begin writeln('цена за ',m: 0: 2,' кг конфет равна ',m*x: 0: 2,' рублей'); m: =m+0.2 end; readln; end.