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 <iostream>
using spacename std;
 void main(){
int a;

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





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.