Тест программных программ
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: налоги в россии, курсовые работы бесплатно
| Добавил(а) на сайт: Сталин.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
Writeln('4')
Writeln(b1,’4’);
End;
else If z>=40 Then Begin
Writeln('3')
Writeln(b1,’3’);
End;
else Begin
Writeln('2')
Writeln(b1,’2’);
End;
Readln;
Write('Фамилия: '); {вписывание фамилии}
Readln(a);
d:=length(a); {выставление пробелов}
Write(b1,a); {запись в файл}
For i:=1 to 14-d do Write(b1,' ');
Write('Имя: '); {вписывание имени, процедура повторяется}
Readln(a);
Write(b1,a);
d:=length(a);
For i:=1 to 11-d do Write(b1,' ');
Write('Отчесчтво: '); {вписывание отчества, процедура повторяется }
Readln(a);
Write(b1,a);
Рекомендуем скачать другие рефераты по теме: allbest, реферат отношения.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата