profile
Опубликовано 6 лет назад по предмету Информатика от milushaprincess

Нужно определить состав трехзначного числа и записать в Pascal Abc

  1. Ответ
    Ответ дан akhtem26ua
    var
    a,i:integer;
    begin
    write('Введите число:');
    readln(a);
    writeln('Единицы: ',a mod 10);
    a:=a div 10;
    writeln('Десятые: ',a mod 10);
    writeln('Сотые: ',a div 10);
    readln;
    end.
Самые новые вопросы