Помогите написать программу, которая определяет, кратное ли число четырём. ** Pascal ABC...

Question

Помогите написать программу, которая определяет, кратное ли число четырём. На Pascal ABC и C++
Пример:
Ввод Вывод
32 Кратно 4
19 Не кратно 4

Answer 1

// Программа будет выполняться до тех пор,
// пока не будет введено "0"
var
    a : integer;
begin
    a := 1;
    while a <> 0 do begin
        write('>> '); read(a);
        if a mod 4 <> 0 then
            write('не ');
        writeln('кратно 4')
    end
end.

---

Answer 2

#include
using spacename std;
 void main(){
int a;

cin>> a;
if (a%4==0){
cout<<a<< "кратно 4";<br>}else{
cout<<a<<"не кратно 4";<br>}
  }





progeram p1;
uses crt; var a:integer; begin 
clrscr;read(a); 
write (a);if a mod 4 = 0 then 
 write("кратно 4"); 

else write ("не кратно 4");
readkey;
end.

Comments

На C++ у тебя не правильно)

---

writeln(a);

---

write("кратно 4");

---

почему?

---

ну вот проверь в С++

---

сори вечно забываю namespace

---

прости ряльно просто заторопился и забыл

---

ну что помогло?

---

чеееел, если пишешь 19, то выводит что оно кратно

---

в паскаль