Для языка программирования Pascal верный вариант "а" и вариант "c".
Вариант b отпадает - индекс не может быть вещественным.
Вариант d хорош для задания массива в языке программирования Basic, но не в Pascal
Непонятно, почему у вас координаты сначала написаны в двоичной системе, ведь в задаче про неё не написано.
Ну да ладно, я перевёл все координаты в десятичную систему счисления и нарисовал рисунок по этим точкам (смотри рисунки внизу). Вроде напоминает зайца какого то. Ну или Пятачка, друга Винни Пуха :)
begin
var n:=ReadInteger('n=');
var m:=(n div 1000) mod 10;
var p:=1;
while n>0 do
begin
p*=n mod 10;
n:=n div 10
end;
if (p mod 5 =0) and(p mod m<>0) then Print('Верно')
else Print('Неверно')
end.
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure Kirill(r:integer);
begin
var n:=0;
for var i:=1 to 9 do
for var j:=0 to 9 do
for var k:=0 to 9 do
if i+j+k=r then begin Write(i,j,k,' '); n+=1 end;
if n>0 then Writeln(NewLine,'Найдено чисел: ',n)
else Writeln('Таких чисел не существует')
end;
begin
var r:=ReadInteger('Введите число R:');
Kirill(r+3)
end.
<u>Пример</u>
Введите число R: 11
149 158 167 176 185 194 239 248 257 266 275 284 293 329 338 347 356 365 374 383 392 419 428 437 446 455 464 473 482 491 509 518 527 536 545 554 563 572 581 590 608 617 626 635 644 653 662 671 680 707 716 725 734 743 752 761 770 806 815 824 833 842 851 860 905 914 923 932 941 950
Найдено чисел: 70
<span>var a,b:integer;
<span>begin</span></span>
<span><span /></span><span><span>a:=10;
</span><span> b:=15;
if a>b then b:=a+b;
a:=a+b;</span></span>
<span><span>writeln(a);</span></span>
<span><span>writeln(b);</span></span>
<span><span>end;</span></span>
<span><span />
</span>