Регистрация
Damir123400
18.07.2021 18:50
Информатика
Есть ответ 👍

100 ! сделать алгоритм, который выделяет цифры в 3-х значном числе

288
338
Посмотреть ответы 3

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

larasayugay
larasayugay
4,5(16 оценок)

ответ:

объяснение:

описываем переменные:

var

chislo3 : integer;

chislostr, n1, n2, n3 : string;

begin

repeat

whiteln('ввод числа');

read(chislo3);

введенное целое число преобразуем в строку

chislostr: =str(chislo3);

проверяем, что длина строки 3, т.е. введенное число трехзначное и если да, то выходим из цикла

until length(chislostr)=3;

вырезаем из строки символы последовательно

n1: = copy(chislostr,1,1); n2: =copy(chislostr,2,1); n3: =copy(chislostr,3,1);

выводим выделенные символы построчно

writeln(n1);

writeln(n2);

writeln(n3);

end.

* синтаксис не тестил

magauiyaa
magauiyaa
4,7(88 оценок)

var

  number, a, b, c : integer;

begin

  writeln('введите трёхзначное число: ');

  readln(number);

  a : = number mod 10;

  b : = (number mod 100) div 10;

  c : = number div 100;

 

  writeln('цифры числа: ');

  writeln(a);

  writeln(b);

  writeln(c);

end.

mayyyyyyka
mayyyyyyka
4,7(53 оценок)

program raf105;

var

  d,hour,min: integer;

begin

  write('d = ');

  readln(d);

  min: = d * 2;

  hour: = min div 60;

  min: = min - hour*60;

  writeln('с начала суток прошло ',hour,' ч. ',min, ' мин.');

end.

pascalabc

Популярно: Информатика