1. Передача (или получение)
2. Обработка
3. Обработка
4. Хранение
5. Передача
6. Получение
7. Передача
8. Обработка
Надеюсь правильно, сорян если ошибся
Var pass,s:string; k:integer;
begin
pass:='12345';
k:=0;
repeat
writeln('Введите пароль:');
readln(s);
k:=k+1;
until (s=pass)or(k=3);
if s=pass
then writeln('Можно приступать к работе')
else writeln('Вызываю охрану');
end.
Пример:
Введите пароль:
1
Введите пароль:
12345
Можно приступать к работе
Var n,d,a1,a0,i:integer;
begin
writeln('d=');
read(d);
writeln('n=');
read(n);
writeln('a1=');
read(a1);
a0:=a1;
for i:=2 to n do
a0:=a0+d;
writeln('Сумма равна');
writeln(a0);
<span>end.
.</span>
Ответ будет "Компьютер", как раз таки на нем и обрабатывается и храниться информация..