вполне реально, если в информатике ты владеешь языком Pascal на хорошем уровне
а общагу надо учить
выбор ВУЗа будет зависеть от желаемого профиля и сферы работы
const N=1000;
var array[1..n] of integer;
i,k,p:integer;
begin
readln(p);
for i:=1 to p do
readln(a[i]);
k:=0;
for i:=1 to p do
if (a[i] mod 4 =0) and (a[i] mod 7 <>0) then k:=k+1;
write(k);
end.
1) 12(в16с/c) =1*16 +2 = 18 (в 10c/c)
12( в 8с/с) = 1*8+2 =10 (в 10с/с)
10 (в 2 с/с) = 2 ( в 10с/с)
18+10*2 = 38 (в 10с/с)
38(в10с/с) = 46(в 8с/с) = 100 110 (в 2с/с) = 26 (в 16с/с)
2) ошибка в записи 4) , в 7с/с нет цифры 7 ( а есть 0 1 2 3 4 5 6 )
Не може
то му що якщо в 1 буде одне то в 2 буде 7 .
7+1 = 8
а повинно 7
<h3>PascalABC.NET 3.4.2, сборка 1827 от 08.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a := a[::2].Sorted.Interleave(a[1::2]).ToArray;
a.Println
end.