10 октября, 16:42

Дано четырехзначное число. Изменить его так чтобы количество десятков стало равно нулю (написать программу паскаль)

+3
Ответы (2)
  1. 10 октября, 17:05
    0
    var a, b1, b2:integer;

    begin

    readln (a) ; / / считываем число

    b1:=a mod 10; / / единицы

    b2: = (a - b1) mod 100; / / десятки

    write (a-b2) ; / / число минус десятки

    end.
  2. 10 октября, 18:39
    0
    var a:integer;

    begin

    a:=1234;

    a: = (a div 100) * 100 + a mod 10;

    Write ('a = ', a) / / тут выведет: a = 1204

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дано четырехзначное число. Изменить его так чтобы количество десятков стало равно нулю (написать программу паскаль) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы