Var m,n,h,i:longint;begin read(n); h:=2017-1985; h:=h+1; for i:=1 to h do begin m:=n div 100; m:=m * 3; n:=n+m; end; writeln(n);end.
Int s = 0;
for(i=5; i<=30; i++){
s+=i;
}
print(s)
Procedure TForm1.Button1Click(Sender: TObject);
var
i, k: integer;
s: string;
begin
k := 0;
i := 1;
while k <> 8 do
begin
if (i mod 7 = 0) then
begin
s := s + IntToStr(i) + #13;
Inc(k);
end;
Inc(i);
end;
ShowMessage(s);
end;
var n,k,i,a:longint;
begin
k:=0;
readln(n);
for i:=1 to n do begin readln(a); if(a<0) then k:=k+1; end;
writeln(k);
end.
1.Мозг( запоминание информации ) | Жёсткий диск
2.Мозг( процесс мышления ) | Процессор
3.Мозг( прием ) | Устройства ввода ( клавиатура и тд. )
4.Речь, двигательная система | USB , USB кабель и тд.