Программа на скрине, чётное число это такое число которое делится без остатка на два, в паскаль чтобы определить остаток от числа нужно использовать mod
<span>1834(8) - так как максимальный разряд 7, а тут присутствует 8</span>
1А00(2) - A не относится к двоичной системе
program n5;
uses crt;
var a,b,c,d,x:integer;
begin
read (a,b,c,d);
if (b=0) and (a<>0)then write('solution');
if (b<>0) and (a=0)then write('нет корней');
if (b<>0) and (a<>0) and (b mod a=0) then write (-b div a);
readln;
end.
Блок-схема - в прилагаемом файле.
#include <iostream>
using namespace std;
int main() {
int b, k;
cin >> b;
k = (b-1)/1024+1;
cout << "k = " << k << "\n";
return 0;
}
Пример:
2050
<span>k = 3</span>