ITYourself! - компьютерная документация, книги, мануалы, it-тематика

?????

E-mail Печать PDF
Рейтинг пользователей: / 1
ХудшийЛучший 

?????

?????? ?????????? ?????????? ?????????? ???????? ??? ???????? ????????? ??? ??????.

? ???????????????? ?????? ?????????? ?????????? ????????? ??? ?????? ????????? ??? ?????? ??????????.

??????????? ???????? ????????? ? ?????????? ?????????? ?????????, ??? ??????????? ? ??? ????? ???????????? ???? ???????.

????? ?????? ???????????? ??? ?????? ??????????????????? ?????????, ????????? ??????.

?????????? ??????, ???????? ??? ????????? ?????? ?? ?????? ?????????? ???? ????? ?????????, ?????? ????????? ????????? ?????.

?????? 1.

?????? ?????????????????? ?? ??????? ???????? ?????? ????. ?????????? ?????????? ?????????? ????????????? ????????? ??????????????????.

?) ?????????? ????????? ??? ????????????? ?????

Program primer_a;

Var

a : Integer;

Begin

x := 0;

Read (a);

If a>0 then

x := x + 1;

Read (a);

If a>0 then

x := x + 1;

Read (a);

If a>0 then

x := x + 1;

Read (a);

If a>0 then

x := x + 1;

Write (x);

End.

 

?) ?????????? ????????? ? ?????????????? ?????

Program primer_b;

Var

a : Integer;

Begin

x := 0;

For i := 1 to 4 do

begin

Read (a);

if a>0 then

x := x + 1;

end;

Write (x);

End.

???????? ????????, ? ?????? ????????? ??? ??????? ???????? ?????????????????? ?? ????????? ?????? ?? ?????????? ??????????, ? ?????? ???????????, ??? ???? ?????????????????? ??????? ?? ?? ??????? ?????????, ? ?? ?????? ??? ????????, ? ????? ? ??????. ??????? ??????? ????? ? ??????????? ???????????? ????????? ?????, ??? ??? ???????? ?? ?????? ?????????.

 

Добавьтe Ваш комментарий

Ваше имя (псевдоним):
Ваш адрес почты:
Заголовок:
Комментарий:

??????????




????????

Внимание!!! Файл sape.php не обнаружен. Проверьте правильность установки кода Sape.


C???????? ?????????