<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var k,s:BigInteger;
(k,s):=(2,2); // две травинки и всего две
for var d:=2 to n do begin k:=2*k+1; s+=k end;
Writeln('В день ',n,' принесено травинок: ',k,', всего: ',s)
end.
<u>Примеры</u>
n= 5
В день 5 принесено травинок: 47, всего: 88
n= 30
В день 30 принесено травинок: 1610612735, всего: 3221225439
n= 365
В день 365 принесено травинок: 112730043973143994938695068645888177314032762347599353793949966633546033205501205286257551922468897745532878847, всего: 225460087946287989877390137291776354628065524695198707587899933267092066411002410572515103844937795491065757328
<span>
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<span>Program konfeti;
Uses
CRT;
Var
x,m:real; {x-цена за килограмм, m-текущая масса}
Begin
CLRSCR;
m:=1.2;
Write('Введите цену за килограмм конфет:');
Readln(x);
While (m<2.1) do
Begin
Writeln('Цена за ',m:0:2,' кг конфет равна ',m*x:0:2,' рублей');
m:=m+0.2
End;
Readln;
End.</span></span>
<span>Var x,y: real;
Begin
readln (x,y);
if (x>=0)and(x*x+y*y>=3*3)and(x*x+y*y<=5*5)
then writeln('YES')
else writeln('NO')
End<span>.
Пример:
4 1
YES</span></span>
Работой всех составляющих компьютера занимается процессор, который обрабатывает всю получаемую от пользователя информацию, НО так же работоспособность всех комплектующих ещё на ранней стадии запуска контролирует чип с BIOS. Его задача - проверить систему на наличие ошибок и сбоев. Если что-то будет не так, то компьютер попросту не сможет включиться.
1. У меня в комнате сейчас пустое множество драконов.
2. Мои родители являются множеством мощности 2.
3. Множество возможных слов языка
4. Множество точек в отрезке.
Или
1. [1, 2] ∩ [9, 19]
2. {1, 4}
3. Множество всех многочленов с целыми коэффициентами.
4. Множество непрерывных функций на отрезке [0, 1].