Нц 3 раз
влево
кц
нц 3 раз
вверх
кц
закрасить
нц
пока справа свободно ,то
вправо
закрасить
кц
нц
пока снизу свободно,то
вниз
закрасить
кц
нц
пока слева свободно,то
влево
закрасить
кц
нц
пока сверху свободно,то
вверх
закрасить
кц
var a,b1,b2:integer;
begin
readln(a); //считываем число
b1:=a mod 10; // единицы
b2:=(a - b1) mod 100; //десятки
write(a-b2); // число минус десятки
end.
1) program znanija2;
var speed, A, X:integer;
time:real;
begin
readln(A);
readln(X);
speed:= A * 3;
time:= X / speed;
writeln(time);
end.
2)
program znanija3;
var P:integer;
tax, rest, wages, answer:real;
begin
read(P);
tax:=(P*70)/100;
rest:= P - tax;
wages:= (rest*70)/100;
answer:= wages / 8;
writeln(answer);
end.
Я бы сделал презентацию на тему: диаграммы. Т.к тема легкая и занимательная, а также легче сделать. В Powerpoint одним махом сделаешь.
Удачи!