Var n, s, a, p, v:integer;
begin
write('N = '); readln(n);
s:=n div (3*4*4);
a:=(n mod (3*4*4)) div (4*4);
p:=(n mod (4*4)) div 4;
v:=n mod 4;
writeln('s = ',s,' a = ',a,' p = ',p,' v = ',v);
end.
Пример:
N = 2061
s = 42 a = 2 p = 3 v = 1
1. Чтобы выбрать фоновый цвет необходимо взять ведро, выбрать цвет , нажать на то место где хочешь раскрасить и всё!
2. Чтобы выбрать основной цвет необходимо взять ведро, выбрать цвет, нажать на то место где хочешь раскрасить и всё!
3. Чтобы нарисовать прямоугольник необходимо взять эту фигуру и сделать, или нарисовать при помощи прямых линий или кисточек.
4. Тоже самое что и 3.
5. Чтобы нарисовать овал необходимо взять эту фигуру и сделать, или нарисовать при помощи кривых линий или кисточек.
6. Тоже самое что и 5.
Всё это через PAINT.
var
a, b: real;
begin
writeln('Введите 2 числа');
readln(a, b);
if a > b then
begin
a:= a + 3;
b:= b - 5;
end;
if a < b then
begin
a:= a - 5;
b:= b + 3;
end;
writeln('a = ', a, ', b = ', b);
end.