Сейчас все будет, все задачки, подождите!
If x<1 Then y:=sqr(2) Else If x>1 Then y:=x+8 Else Writeln('x не должен быть=0')
Объяснение:
Если x<1, то y:=<u />
, иначе, если x>1, то y:=x+8,иначе вывести:x не должен быть=0
1 Кбайт=1024 байт= 1048576 бит. Столько же у нас символов. Тк 1байт=8 бит, 1 символ=8бит.
1998 году появился первый мобильный телефон с сенсорным дисплеем — Sharp PMC-1 Smart-phone.
Var S,K,A:integer;
Begin
S:=0;
K:=0;
A:=50;
Repeat
S:=S+A;
K:=K+5;
A:=A+1;
Until A>150;
WriteLn('SR = ',2*S);
WriteLn('K = ',K);
End.