с экселем
1 Установить размер бумаги - А4, начальный номер страницы - 10,
горизонтальное и вертикальное центрирование, в верхнем колонтитуле -
свою фамилию (по центру), в нижнем - номер группы (по центру) и номер
страницы (слева).
2 Установить размер шрифта 14 пунктов.
3 Создать таблицу «ЭКЗАМЕНАЦИОННАЯ ВЕДОМОСТЬ» со
следующими столбцами: Фамилия и инициалы студента, Анатомия,
Биохимия, Информационные технологии в ФКиС, Плавание и МП,
Дата окончания сессии.
4 Ввести условия для проверки вводимых данных (данные в количестве 10):
ФИО – не больше 20 символов, оценки – в пределах от 4 до 10, дата
окончания сессии – не раньше 1июня и не позже 1 июля текущего года.
Предусмотреть контекстную диагностику при вводе некорректных
данных, например, при вводе длинной фамилии и инициалов – «Фамилия
и инициалы превышают 20 символов» и т.д.
5 Ввести исходные данные для 10 студентов.
6 Назвать лист «Ведомость».
7 Перейти к адресации ячеек R1C1.
8 Перейти к алфавитно-цифровой адресации ячеек.
9 Использовать разные цвета фона и символов при создании таблицы.
Центрировать заголовок по ширине таблицы и выделить его шрифт.
10.Ввести графу «Номер по порядку» в качестве первого столбца таблицы.
Задать первому элементу таблицы номер 1, а остальные сформировать с
шагом 1, используя прием формирования арифметических прогрессий.
11.Подогнать ширину всех столбцов под введенные в них данные. При этом
длины строки заголовка графы и данных в ней должны быть соизмеримы.
В противном случае разделить заголовки на несколько строк. Добиться
того, чтобы таблица помещалась на листе формата А4 при шрифте 14
единиц.
12.Выполнить размещение символьных данных по центру соответствующих
столбцов, а числовых - по левому краю.
13.Ввести произвольные значения оценок по предметам.
14.Выполнить защиту от модификации столбцов с оценками.
15 В настройке строки состояния сделать видимыми среднее значение,
сумму, максимальное и минимальное значения.
16.Ввести рамки для всех ячеек таблицы.
17.Удалить сетку.
18.Скрыть каждую вторую строку таблицы.
19 Восстановить исходную таблицу.
program sam;
uses crt;
type tmasi=array[1..50]of integer;
var ch:integer;
ss,s,k,i:byte;
z:tmasi;
begin
write('Ââåäè ÷èñëî:'); readln(ch);
i:=0;
s:=0;
ss:=0;
while ch <>0 do
begin
inc(i);
z[i]:=ch mod 10;
ch:=ch div 10;
end;
k:=i;
for i:=1 to k do
if z[i]=4 then inc(s)else
if z[i]=7 then inc(ss);
if (s=0)and(ss=0)then writeln(' ÷èñëå íåò ÷èñåë 4 è 7') else
if (s<>0)and(ss<>0)then writeln(' ÷èñëå ïðèñóòñâóþò ÷èñëà 4 è 7');
if ((s<>0)and(ss=0))or((s=0)and(ss<>0))then writeln(' ÷èñëå ïðèñóòñòâóþò ëèáî òîëüêî 4 ëèáî òîëüêî 7');
end.
Объяснение: