Разветвляющуюся структуру
var n,f,s,i:integer;
begin
write('Введите целое положительное число N= '); readln(n);
f:=1; s:=0;
if n mod 2 =0
then begin for i:=1 to n do f:=f*i;writeln(n, '!=', f); end
else begin for i:=1 to n do s:=s+i; writeln('S= ', s) end;
end.
Var
Date: string;
year:integer;
begin
readln(Date);
Delete(Date, 1, Pos('.', Date));
Delete(Date, 1, Pos('.', Date));
year:=StrToInt(Date);
writeln(2015-year);
end.
Структура всегда одинаковая:
протокол://<span>сервер/файл
</span>1.БВЕДАЖГ
2.ЖДАВБЕГ
3.ВБГЕДЖА
4.БВЖЕГДА
Var i,p:integer;
begin
i:=11;
p:=1;
while i<=99 do
begin
p:=p*i;
i:=i+2;
end;
writeln(p)
end.