Старая задачка)
8126+8126=16252
Посчитаем объём информационного сообщения:640*480*4байта=307200байтов=2457600битов. Эту величину разделим на скорость 28800, получим приблизительно...
Решение пишу с телефона. Поэтому проверить, компилируется ли программа или нет, я не смогу.
program zd1;
var x,y,pi:integer;
begin
writeln ('Введите значение переменной X');
readln (x);
pi:=3,14;
if (0 <= x <= 1) then y:=x^4-4
else
y:=sqr(x)-sin (pi*sqr (x));
writeln ('Ответ = ', y);
end.
const DOLLAR = 68; // доллар в руб
const EURO = 75; // евро в руб
let rub = prompt("Введите сколько хотити перевести");
rub = parseInt(rub, 10);
alert("Доллары: " + rub/DOLLAR + "\nЕвро: " + rub/EURO );