Program gt;
var a,b,p:real;
i:integer;
begin
a:=10000;
p:=7.4;
for i:=1 to 8 do
begin
a:=a+a*p/100;
end;
writeln(a);
<span>end.</span>
<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
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal;
var y:real;
if x<5 then y:=1/(x-5)
else
if x=5 then y:=45
else y:=x**3-20;
Writeln(y)
end.
<u>Пример</u>
12.543
1953.350667007
Три основных правила безопасности в соц.сетях.
1.Знать всё про мошеничество:лотереи и конкурсы онлайн;финансовые пирамиды;спам;фальшивые программы с вирусами.
2.Защитить свою информацию:придумывать сложные пароли;использовать как минимум 2 электронных адреса-один для переписки с друзьями,второй для регистрации на сайтах,форумах, в соц.сетях.Второй адрес должен быть сложным для запоминания и воспроизведения.
3.Использовать дополнительные системы безопасности.На рынке новых технологий имеется немало программ и систем, призванных
обеспечить безопасность пользователя сети, а также его компьютера,
мобильного устройства. Подобными утилитами обязательно нужно
пользоваться.
Решение:
У нас есть 600Кб информации.
Посмотрим сколько это бит
600(килобайт)*1024(байт в килобайте)*8(бит в байте) = 4915200 бит.
У нас каждая точка(пиксел) занимает 16 бит
Значит у нас: 4915200/16 = 307200 пикселей.
Посчиатем пикселы для разных разрешений (размеров растра)
640*480=307200
1024*768 = 786432
Значит ответ: размер растра у нас 640*480. (совпадают количества пикселей)