Var a, b, c, d, s, k: integer;
begin
write('Введите k: '); readln(k);
a := k div 1000; {тысячи}
b := (k mod 1000) div 100; {сотни}
c := (k mod 100) div 10; {десятки}
d := k mod 10; {единицы}
s := d * 1000 + c * 100 + b * 10 + a;
writeln('k = ', k, #10, 's = ', s);
end.
1. С:\Физика\Задачи\Механика
2. С:\Физика\Задачи
3. С:\Физика
4. С:\Физика\Экзамен\Вопросы.doc
Путь: С:\Физика\Экзамен\Вопросы.doc
Const
n1=15;
n2=10;
n3=12;
type
V=array[1..15] of string;
procedure M_in(s:string; var a:V; n:integer);
{ ввод данных в массив }
var i:integer;
begin
Writeln('Вводите по одному ',n,' элементов массива ',s);
for i:=1 to n do Readln(a[i])
end;
procedure M_out(var a:V; n:integer; c:char);
{ выводит элементы, начинающиеся с указанного символа }
var i:integer;
begin
Writeln('*** Слова на букву ',c,' ***');
for i:=1 to n do
if a[i][1]=c then Writeln(a[i]);
Writeln
end;
var
s1,s2,s3:V;
begin
M_in('S1',s1,n1);
M_in('S2',s2,n2);
M_in('S3',s3,n3);
M_out(s1,n1,'В');
M_out(s2,n2,'Ц');
M_out(s3,n3,'А');
end.
Программа:
program summa;
var a: integer;
begin
read(a);
a := a MOD 10;
write(a);
end.
Ответ на вопрос:
5