<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b) := ReadReal2;
if a * b > 0 then Println(a - b)
else Println(a / b)
end.
сначала нужно узнать размер 640*480*3=921600байт, переведем теперь в биты 921600*8=7372800 теперь делим и получаем секунды 7372800/28 800=256сек
a - двухзначное число, b - первая цифра двухзначного числа
b: = a div 10;
if (b mod 2 = 0) then writeln ('Цифра чётная');
if (b mod 2 = 1) then writeln ('Цифра нечётная');
1. Начало
2. Ввод числа a
3. a>0
4. налево a=a+1 , направо a<0 ( налево a=a-2, направо a=10)
5. Вывод а
6. Конец
Если есть заварка, то я пойду пить чай, иначе не пойду.