//PascalABC.NET
uses GraphABC;
var c: integer;
begin
window.IsFixedSize := true;//запрет изменения размера экрана
window.Clear(cllightblue);//очистка экрана синим цветом
pen.Color := clred;//меняем цвет пера на красный
for var i := 0 to 19 do//цикл для отрисовки линий
begin
c := (window.Height div 19) * i;//сдвиг линнии по y
line(0, 0 + c, window.Width, window.Height - c);//рисуем линию
end;
end.
Объяснение:
uses graphabc;
begin
circle(50,50,50);
circle(50,50,20);
circle(150,50,50);
circle(150,50,20);
circle(250,50,50);
circle(250,50,20);
circle(350,50,50);
circle(350,50,20);
circle(450,50,50);
circle(450,50,20);
circle(550,50,50);
circle(550,50,20);
end.
l: array ['a'..'z'] of integer;
s: string;
i:integer;
c:char;
begin
read(s);
for i := 1 to length(s) do
if s[i] in ['a'..'z'] then
l[s[i]] := l[s[i]] + 1
else if s[i] = '.' then
break;
for c := 'a' to 'z' do
if l[c] >= 2 then
writeln(c, ' = ', l[c]);
for c := 'a' to 'z' do
if l[c] = 1 then
writeln(c, ' = ', l[c]);
end.