1 и 2 плиз,очень надо

1 и 2 плиз,очень надо

Задать свой вопрос
1 ответ
1) var a,b,c:integer;k:integer;beginreadln (a,b,c3 4);k:=0;if (a mod 4=0) and (a mod 10=0) then  k:=k+1;if (b mod 4=0) and (b mod 10=0) then  k:=k+1;if (c mod 4=0) and (c mod 10=0) then  k:=k+1;writeln (k);end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт