// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var x,y:real;
Write('Введите x и y: '); Read(x,y);
// 13
Writeln(cos(x)/(pi-2*x)+16*x*cos(x*y)-2);
// 20
Writeln((1+sin(sqrt(sin(x)+1)))/cos(12*y-4));
// 23
Writeln(Power(3,x)-4*x+(y-sqrt(abs(x))))
end.
<u><em>Тестовое решение</em></u>
Введите x и y: 2.15 4.1
-29.7277579658493
5.71678202339215
4.64604098127078
Program project; //объявляем название программы
Var //объявляем переменные
a: integer; //integer - целое число
Begin //начинаем собственно программу
>><span>a:=1</span>; //первое число будет состоять из единиц
>>While a <> 10 do //начинаем цикл, который будет длиться, пока "а" не достигнет 10
>>Begin //начало цикла
>>>>Writeln (a, a, a); //записываем "а" трижды
>>>>a:=a+1; //прибавляем к "а" единицу
>>End; //конец цикла
End. //конец программы
P. S. Вместо ">>" пиши пробелы, просто они здесь не отображаются
<span>Program prim;
</span>
<span>var n,i: </span>integer;
<span><span>begin
</span></span>
writeln ('Введите число n', n);
<span>
readln (n);
</span>
<span>for i:=</span>1 to <span>n do write (i);</span>
<span>
end.</span>
<span>Python
n = 50# 50 чисел
suma = 0# сума равна 0
for i in range(0,n+1):</span># цикл чисел от 1 до 50<span>
suma += i </span># початкову суму додаємо все числа<span>
print(i) </span># вивод чисел от 1 до 50<span>
print("suma "+ str(suma)) </span># вивод суми всех чисел
При палитре из 256 цветов на 1 пиксель необходимо log(2)256=8 бит.
На все изображение - 640*480*8 бит = 640*480 байт = 300 Кбайт, следовательно, в видеопамяти может разместиться 1 страница.