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.
Батькам учнів, а часом і самим педагогам може здатися, що даним видом діяльності зараз приділяється дуже багато уваги і часу. Міні-проекти на уроках і позакласних заняттях, поза школи, коли для виконання необхідна до батьків, потрібно чимало сил і ресурсів.
Однак вони виходять на перший план навчальної життя не просто так. Реалізація таких завдань формує у студентів цілий комплекс умінь і навичок, необхідних у сучасному світі. Проект — це завжди зіткнення з проблемою, пошук шляхів її рішення, прагнення до результату. Діти вчаться планувати, робити вибір, контролювати процес, оцінювати себе. І, звичайно, уявляти підсумки. Захист проекту – зразок, репетиція того, як потрібно діяти, щоб продемонструвати всі плюси виконаної роботи
Объяснение:
Надеюсь ето тебе
Объяснение:
описываем переменные:
var
Chislo3 : integer;
ChisloStr, N1, N2, N3 : string;
begin
repeat
writeln('Ввод числа');
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.
* синтаксис не тестил