1. Радио, интернет, TV... 2. Звуковая, текстовая, графическая... 3. Слуховая, зрительная, обонятельная, вкусовая... 4. Когда сообщают прогноз погоды, то сведения о том, что будет дождь, более вероятно летом, а сообщение о снеге – зимой. 5. В отличие от естественных языков формальным языкам присущи четко сформулированные правила семантической интерпретации и синтаксического преобразования используемых знаков, а также то, что смысл и значение знаков не изменяется в зависимости от каких-либо прагматических обстоятельств (например, от контекста) .
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 И получили введенное нами число - результат
2. Звуковая, текстовая, графическая...
3. Слуховая, зрительная, обонятельная, вкусовая...
4. Когда сообщают прогноз погоды, то сведения о том, что будет дождь, более вероятно летом, а сообщение о снеге – зимой.
5. В отличие от естественных языков формальным языкам присущи четко сформулированные правила семантической интерпретации и синтаксического преобразования используемых знаков, а также то, что смысл и значение знаков не изменяется в зависимости от каких-либо прагматических обстоятельств (например, от контекста) .
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
И получили введенное нами число - результат