Var
n, a, s,i: integer;
begin
s := 0;
read(n);
for i := 1 to n do
begin
read(a);
if(a mod 3 = 0) then s := s + a;
end;
write(s);
end.
VVVVVVVVVVVVVV
Var a,b,c: integer;
begin clrscr;
write('Надо написать 1 число'); read(a);
write('Надо написать 2 число'); read(b);
if a<b then write('c=',a) else write('c=',b);
end.
C++
#include <iostream>
using namespace std;
int main()
{
int a = 0, b = 0;
cin >> a >> b;
if (a > b) {
cout << "больше";
}
else if (a < b) {
cout << "меньше";
}
else {
cout << "равно";
}
return 0;
}
Переведите число CAFE из 16ричной в 2 систему счисления
сколько будет ABC(18) + DEF(20) в двоичной