Дано натуральное число, определите последнюю цифру этого числа! напишите программу для паскаля прошу вас! )

Program chik; var n,a: integer; begin read(n); a: =n mod 10; writeln(a); end. здесь mod 10 делаем чтобы найти остаток от деления n на 10 при этом мы находим последнюю цифру а если mod 100 сделать 2 последные цифры mod 1000 три последные цифры и т.д

Текстовый документ в word можно создать следующими способами: выбрать команду создать в меню файл, затем в области (изменится режим на «создание документа») в разделе создание выбрать «новый документ», основанный на шаблоне обычный или разделе шаблоны в пункте на моем компьютере выбрать предопределенный шаблон или мастер, на основе которого требуется создать документ или шаблон.; щелкнуть пиктограмму создать на панели инструментов стандартная, откроется пустой документ документ 1, основанный на шаблоне обычный.

Добрый день! и так, начнём.. *вопрос:   изменится ли строка st, над которой произведут операцию copy? почему? *ответ:   изменится, т.к. при использовании функции copy  необходимо указывать в какой строке копировать, с какой позиции, и количество символов, которое будет копировано.**вопрос:   чему будет равняться  k  после  операции  k: =length(‘мышь и клавиатура’)? **ответ: переменная k будет равна 17, т.к. функция length определяет длину строки, считая каждый пробел, запятую, буквы и т.д.***вопрос:   чему будет равняться переменная tx после  операции  tx: =‘лесник’;       delete(tx,4,3)? ***ответ: переменная tx будет равна слову лес.  функция  delete   удаляет часть символов из строки. в нашем случае удаление происходит в строке tx, с позиции 4, удаляет 3 символа.****вопрос:   чему будет равняться переменная k после  операции      tx: =‘баобаб’;     k: =pos(‘ба’,tx)? ****ответ: переменная k будет равна 1. т.к. функция pos определяет первое вхождение заданного символа.  дополненная программа: program zadacha1; var  t: string;   b: string[1];   n, k, i: integer; beginwriteln('введите   текст: '); readln(t); n : = length(t); k : = 0; for i : = 1 to n do  beginb : = copy(t, i, 1); if (t[i] = 'a') or (t[i] = 'a') or (t[i] = 'а') or (t[i] = 'а') then   k : = k + 1; end; writeln ('k= ', k); end. *курсивом и выделением  обозначены дополнения в программе.