Program p1;
var a:integer;
begin
a:=random(89)+10;
writeln('a= ',a);
writeln('Summa tsifr= ',a mod 10+a div 10);
writeln('4islo naoborot= ',a mod 10, a div 10);
<span>end.
program p2;
var a:integer;
begin
a:=random(899)+100;
writeln('a= ',a);
if (a mod 10)=((a div 100) mod 10) then writeln('POLIMER')
else writeln('NE POLIMER');
end.</span>
2мб,1,2мб,1230кб,3кб,3070байт
(наименьшая цифра больше 3) И НЕ (число двузначное) <=>
<=> (наименьшая цифра больше 3) И (число не двузначное)
Вариант 1 не подходит по обоим условиям;
Вариант 3 не подходит по второму условию;
Вариант 4 не подходит по первому условию;
Вариант 2 удовлетворяет обоим условиям.
Ответ: 2.
Проводник - абориген.
Потому что если бы он спросил у пришельца, которые всегда лгут, "Кто ты?", то тот солгал, сказав "Абориген". И проводник пришел и сказал правду.
А если бы проводник был бы пришельцем, спросив у аборигена "Кто ты?", то абориген сказал бы правду. Но пришелец путешественнику соврал бы, сказав, что тот пришелец.
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var n:=ReadInteger('Степень полинома:');
var p:=ReadArrReal('Коэффициенты полинома по убыванию степеней:',n+1);
var a:=ReadReal('Значение А:');
var q:=new real[n+2];
q[0]:=p[0];
q[n+1]:=-p[n]*a;
for var i:=1 to n do q[i]:=p[i]-a*p[i-1];
Writeln('Коэффициенты результирующего полинома');
q.Println
end.
<em>Контрольный пример</em>P(x)=3x²-4x+5, A=2.5
(x-A)P(x)=3x³-11.5x²+15x-12.5
<u>Результат выполнения программы</u>Степень полинома: 2
Коэффициенты полинома по убыванию степеней: 3 -4 5
Значение А: 2.5
Коэффициенты результирующего полинома
3 -11.5 15 -12.5