Пуск..........................
1.
program z2;
var a,g:real;
begin
readln(a);
g:=(a/22)*(56-22);
writeln(g:4:2);
end.
<span>
2.
program z3;
var n,a,b,c:integer;
sa,sb,sc:real;
begin
writeln('Ведите количество учеников:');
readln(n);
writeln('Введите сколько:5,4,3');
readln(a,b,c);
sa:=(a*100)/n;
sb:=(b*100)/n;
sc:=(c*100)/n; writeln('пятёрок:',sa:4:2,'%');
writeln('четвёрок:',sb:4:2,'%');
writeln('троек:',sc:4:2,'%');
<span>end. </span></span>
Алгоритм это порядок слов которые ты набираешь
Var m,d1,d2,dn,k:integer;
begin
write('Вес Винни-Пуха (г): ');
readln(m);
d1:=100; d2:=100;
dn:=100; k:=2;
while dn<=m do
begin
dn:=d1+d2;
d1:=d2;
d2:=dn;
k:=k+1;
end;
writeln('k = ',k,' dn = ',dn);
end.
Пример:
Вес Винни-Пуха (г): 900
k = 7 dn = 1300
Сами команды:
Опустить перо
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)