Нужно использовать exel - вот я сделал
Пишите значение в B2
Задание в Excel или на языке программировнания?
1.
var i,k:integer;
begin
for i:=150 to 225 do
if i mod 7=0 then k:=k+1;
write(k)
end.
2.
var a,s:integer;
begin
read(a);
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10
end;
if s mod 10=0 then write('Правда') else write ('Неправда')
end.
V(2 байт)=2048+х
16:8=2
2х=2048+х
х=2048
x(2 байт)=4096=32768
N=2 байт=16 бит= 2(в 4 степени) бит
=>i=4 бит
х=k*i
=> k=x:i
k=32768:4=8192
Ответ: Количество символов=8192
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.