PascalABC.NET 3.3
program journal;
var
sum, mark, count, n: integer;
check: boolean;
begin
sum := 0;
check := true;
count := 0;
writeln('Введите количество оценок: ');
readln(n);
if (n > 0) then begin
while (count <> n) do
begin
readln(mark);
inc(sum, mark);
if (mark < 4 ) then check := false;
inc(count);
if (count = n) then writeln('Ввод окончен!');
end;
end else writeln('Error!');
if ((check) and (sum > 0) and (n > 0)) then writeln('Ты молодец!');
end.
1. средства содержащиеся в пункте файл:
1) создать - очистка окна редактирования и подготовка к вводу нового текста. при этом его файл получает имя документ.
2) открыть - открытие и загрузка файла с его поиском в диалоговом окне.
4)сохранить как - запись файла на диск с заданным именем и заданной директорией (они в появившемся диалоговом окне).
5)сохранить - запись файла на диск с текущим именем в текущую директорию.
6) печать - печать документа с установкой опций печати (выбор принтера и др.) в появившемся диалоговом окне.
предварительный просмотр - просмотр страницы перед печатью (полезно для оценки расположения абзацев и встроенных рисунков).
7) параметры страницы - установка параметров страницы, который позволяет задать размер и ориентацию страницы, величину полей.
отправить - установка связи с электронной почтой для получения по ней документа или пересылки редактируемого документа по электронной почте.
8) выход - завершение работы с редактором.
2. меню вставка порождает подменю с двумя :
1) дата и время - вставка по месту расположения курсора строки с указанием текущего времени и даты.
2) объект - открыть диалоговое окно вставка объекта для включения в документ объекта, созданного другим приложением (рисунка, проигрываемого звукового файла и т.
3. задать параметры будущей печатной страницы можно в вкладке:
файл --> печать