PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin Font.Size:=Trunc(Font.Size*1.5); // размер шрифта 150% Font.Color:=clBlack; // цвет шрифта Window.Clear(clWhite); // залить окно цветом Brush.Color:=clWhite; // фон текста Font.Name:='Arial'; // имя шрифта Writeln('Arial font'); Font.Name:='Times'; // имя шрифта Writeln('Times font'); Font.Name:='Verdana'; // имя шрифта Writeln('Verdana font'); Font.Name:='Broadway'; // имя шрифта Writeln('Broadway font'); end.
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString; Writeln('Количество слов в строке равно ',s.ToWords.Count); Writeln('количество цифр в строке равно ', s.Where(c->c in ['0'..'9']).Count) end.
Пример В России День Победы празднуется 9 мая начиная от 1945 года Количество слов в строке равно 11 количество цифр в строке равно 5
2. Текстовый файл может содержать столько текстовых строк, сколько в классе учеников. Каждый ученик должен прочитать и обработать строку из файла, соответствующую своему порядковому номеру в журнале.
Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin
Font.Size:=Trunc(Font.Size*1.5); // размер шрифта 150%
Font.Color:=clBlack; // цвет шрифта
Window.Clear(clWhite); // залить окно цветом
Brush.Color:=clWhite; // фон текста
Font.Name:='Arial'; // имя шрифта
Writeln('Arial font');
Font.Name:='Times'; // имя шрифта
Writeln('Times font');
Font.Name:='Verdana'; // имя шрифта
Writeln('Verdana font');
Font.Name:='Broadway'; // имя шрифта
Writeln('Broadway font');
end.
Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
Writeln('Количество слов в строке равно ',s.ToWords.Count);
Writeln('количество цифр в строке равно ',
s.Where(c->c in ['0'..'9']).Count)
end.
Пример
В России День Победы празднуется 9 мая начиная от 1945 года
Количество слов в строке равно 11
количество цифр в строке равно 5
2. Текстовый файл может содержать столько текстовых строк, сколько в классе учеников. Каждый ученик должен прочитать и обработать строку из файла, соответствующую своему порядковому номеру в журнале.