Определённым при- Вопросы и задания 1. Какими свойствами обладает память человека? 7 чем отличается память человека от памяти человечества? 1. владеете. 5. Перечислите достоинства и недостатки хранения информации в опе- оперативной? Приведите примеры оперативной информации, которой вы 4. Какие сведения вы храните в своей записной книжке? Как можно наз- вать записную книжку с точки зрения хранения информации? ративной и долговременной памяти. 6. Объясните своими словами, что такое носитель информации. Какие носители информации вам известны? Каким носителем информации вы пользуетесь чаще всего? 7. В следующих примерах укажите информационный носитель и форму представления информации: табличка с номером дома; почтовая открым- ка, билет на поезд; газета; диск со сборником мультфильмов. 8. Что такое файл

1. Если буквально по тексту задания, то число должно быть должно быть однозначным, тогда число будет соответствовать цифре.

2. Если имелось ввиду, что вводится символ и надо выяснить является ли введенный символ цифрой, то можно применить функцию StrToInt от введенного символа, если в результате получится цифра, то вводили символ - цифру.

Для первого варианта можно попробовать такое решение:

Var
  a :integer;
Begin
  writeln('Введите цифру ');
  readln(a);
  case a of
    0 : writeln ('ноль');
    1 : writeln ('один');
    2 : writeln ('два');
    3 : writeln ('три');
    4 : writeln ('четыре');
    5 : writeln ('пять');
    6 : writeln ('шесть');
    7 : writeln ('семь');
    8 : writeln ('восемь');
    9 : writeln ('девять')
  else writeln ('Это число не цифра');
  end;
end.
  

Program dates;
var
date : string;
dd, mm, yy : string;
d, m, y : integer;

function strMonth(dt : integer) : string;
var
res : string;
begin
res:='';
case dt of
1 : res:=' января ';
2 : res:= ' февраля ';
3 : res:= ' марта ';
4 : res:= ' апреля ';
5 : res:= ' мая ';
6 : res:= ' июня ';
7 : res:= ' июля ';
8 : res:= ' августа ';
9 : res:= ' сентября ';
10 : res:= ' октября ';
11 : res:= ' ноября ';
12 : res:= ' декабря ';
end;
strMonth := res;
end;

begin
write('Введите дату:');
readln(date);
dd:=copy(date, 1, 2);
mm:=copy(date, 4, 2);
yy:=copy(date, 7, 4);
val(dd, d);
val(mm, m);
val(yy, y);
writeln('Сегодня ', d, strMonth(m), y, ' года');

end.