//PascalABC.Net 3.1.0.1200
var
yesterday, before_yesterday, all, this_day, days: integer;
begin
yesterday := 6;
before_yesterday := 6;
all := yesterday + before_yesterday;
days := 2;
repeat
days += 1;
this_day := yesterday + before_yesterday + 3;
all += this_day;
if days mod 10 = 0 then all := trunc(all * 0.95);
before_yesterday := yesterday;
yesterday := this_day;
until all > 1500;
writeln('days = ', days);
end.
a) является
б) не является, поскольку приведены два оператора, разделенные точкой с запятой. Первый из них - условный оператор, второй - синтаксически неверная конструкция.
в) не является, поскольку x<y<z не является допустимым логическим выражением.
В теории - да
На практике может быть разное, а так да, может