Var A:integer;
Begin
Read(A);
A:= A mod 12;
if (A>=0)and(A<3) then Write('Зима');
if (A>2)and(A<6) then Write('Весна');
if (A>5)and(A<9) then Write('Лето');
if (A>8)and(A<=11) then Write('Осень');
End.
Microsoft Word - мощный текстовой процессор, предназначенный для выполнения всех процессов обработки текста: от набора и верстки, до проверки орфографии, вставки в текст графики в стандарте *.pcx или *.bmp, распечатки текста. Он работает с многими шрифтами ,как с русским ,так и с любым из двадцати одного языка мира. В одно из многих полезных свойств Word входит автоматическая коррекция текста по границам, автоматический перенос слов и правка правописания слов, сохранение текста в определенный устанавливаемый промежуток времени, наличие мастеров текстов и шаблонов, позволяющих в считанные минуты создать деловое письмо, факс, автобиографию, расписание, календарь и многое другое. Word обеспечивает поиск заданного слова или фрагмента текста, замену его на указанный фрагмент, удаление, копирование во внутренний буфер или замену по шрифту, гарнитуре или размеру шрифта, а так же по надстрочным или по подстрочным символам. Наличие закладки в тексте позволяет быстро перейти к заложенному месту в тексте. Можно так же автоматически включать в текст дату, время создания, обратный адрес и имя написавшего текст. При помощи макрокоманд Word позволяет включать в текст базы данных или объекты графики, музыкальные модули в формате *.wav. Для ограничения доступа к документу можно установить пароль на текст, который Word будет спрашивать при загрузке текста для выполнения с ним каких-либо действий. Word позволяет открывать много окон для одновременной работы с несколькими текстами, а так же разбить одно активное окно по горизонтали на два и выровнять их.
Uses crt;
var i,n,p,k:integer;
begin
clrscr;
readln(n);
for i:=2 to n div 2 do
if (n mod i = 0) then inc(k);
if k =0 then writeln('simple')
else writeln('not simple');
readln
end.
Var
s1, s2: string;
i: integer;
begin
readln(s1);
for i:=1 to length(s1) do
if s1[i] in ['0'..'9'] then
s2 := s2 + s1[i];
writeln(s2);
<span>end.</span>
1 постановка задачи
исходные данные Х,У
результат: текст1 или текст2 или текст3 или текст4 или текст5 или текст6 или текст7
2.Формализация
если (x=0) and (y=0) то вывод текст1 ('это начало координат');
если (y=0) and (x<>0 ) то вывод текст2 ('точка лежит на оси OX');
если (y<>0) and (x=0 ) то вывод текст3 ('точка лежит на оси OY');
если (y>0) and (x>0 ) то вывод текст4 ('точка в 1 четверти');
если (y>0) and (x<0 ) то вывод текст5 ('точка во 2 четверти');
если (y<0) and (x<0 ) то вывод текст6 ('точка в 3 четверти');
если (y<0) and (x>0 ) то вывод текст7 ('точка в 4 четверти')сли
var
x,y: integer;
begin
writeln ('ââåäè êîîðäèíàòû òî÷êè x,y');
read (x,y);
if (x=0) and (y=0) then writeln (''это начало координат');
if (y=0) and (x<>0 ) then writeln ('точка лежит на оси OX');
if (y<>0) and (x=0 ) then writeln ('точка лежит на оси OY');
if (y>0) and (x>0 ) then writeln ('точка в 1 четверти');
if (y>0) and (x<0 ) then writeln ('точка во 2 четверти');
if (y<0) and (x<0 ) then writeln ('точка в 3 четверти');
if (y<0) and (x>0 ) then writeln ('точка в 4 четверти')
end.