<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, 20, 30);
a.Println;
var p := 1;
foreach var t in a do
if t = 25 then p *= 25;
if p = 1 then p := 0;
p.Println;
end.
<h2>24 27 25 24 27 21 27 25 26 25</h2><h2>15625 </h2>
Var x,y:real;
begin
writeln('Введите координаты точки');
readln(x,y);
if (x>=0)and(y>=0)and(y<=(-1)*x+6)and(y>=(-2)*x+4)then writeln('True')
else writeln('False');
<span>end.</span>
1 PascalВыделить код
2uses crt;
3var a,b,x,y,z:integer;
4begin
5clrscr;
6writeln('Введите числа A,B');
7readln(a,b);
9x:=a+b;
10y:=a-b;
11z:=a*b;
12writeln(x);
13writeln(y);
14writeln(z);
15end.
Попробуем найти, какое основание системы счисления нам может подойти. Если складывать все три возраста "в столбик", начинаем с последней цифры. 3+4+1=8. Но в результате записана не восьмерка, а тройка. Это означает, что получилось 13, а единица пошла в следующий разряд. 13 отличается от 8 на 5. Это и есть основание системы счисления.
Если при решении такой задаче остается время, можно сделать проверку. Сложим все три возраста, считая систему счисления пятеричной. Получается 343, следовательно, решение верное.
Ответ: основания системы счисления равно 5.
Сноска — это ссылка вне основного текста на источник информации, использованный при написании статьи, или комментарий. Ссылка создаётся с помощью соответствующих тегов или шаблонов, которые нужно вставить после поясняемой части текста.
В окончательном тексте сноски размещаются автоматически в разделе «Примечания». Также автоматически после фрагмента поясняемого текста ставится знак сноски (цифра или значок), связывающий поясняемый текст со сноской, а в «Примечаниях» перед сноской ставится значок возврата к поясняемому тексту. Если кликнуть мышкой по знаку сноски, то текст переместится к сноске, если по значку возврата — то к поясняемому тексту.