Предмет: Информатика, автор: Нургиза

Составьте программу, определяющую является ли данное число кратным 4.

Ответы

Автор ответа: Dmon55

VB.

Dim x as Integer
x=InputBox("Введите x:")
If x mod 4 =0 then MsgBox("Число кратно 4") else MsgBox("Число НЕ кратно 4")

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Биология, автор: 7766tr

6 лет назад

Предмет: Литература, автор: pari4ykarhip

Чому діка сенда обирають капітаном корабля? Кому і для чого жуль верн написав цей роман

6 лет назад

Предмет: Українська література, автор: Аноним

Засудження підступність, жорстокість і підлість зрадників з джури козака швайки

6 лет назад

Предмет: Математика, автор: 11stasy11

Капитан на вопрос "Сколько у него в команде людей?" ответствовал, что 2/5 его команды в карауле, 2/7 в работе, 1/4 в лазарете да ещё 27 человек налицо. Сколько человек в команде?||||||||||||||||||||||||||||||||||||||||||| Из множества чистых цветков лотоса были принесены в жертву:ШИВЕ-третья доля этого множества,ВИШНУ пятая СОЛНЦУ шестая;четвёртую долю получил БХАВАНИ, а остальные шесть цветков получил уважаемый учитель. Сколько было цветков?

10 лет назад

Предмет: Информатика, автор: tdariya

Задание: Какое значение будет принимать переменная Y после выполнения фрагментов программы, сколько раз будет выполнен цикл?

1) Var

x,y: integer;

Begin

Y:=0;

For x:=1 to 9 do

Y:=y+1;

Writeln (‘y = ’,y);

End.

2) Var

Y, x: integer;

Begin

Y:=0;

X:=10;

While x>0 do

Begin

X:= x-2;

Y:= y+x;

End;

Writeln (‘y = ’,y)

End.

10 лет назад