1.Двоичная
2.римская
3.Джорж Булль
4.
5.Двоичный код
6.десятичная
7.поднести к квадрату
8.кластер
9.десятичная
Начало
выкопать в земле ямку
опустить в ямку саженец
засыпать ямку с саженцем землей
полить саженец водой
Конец
Начало и конец в овале, остальное в прямоугольнике.
Эта презентация Вам в помощь : http://u.to/A4wWBQ
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку');
for var i:=s.Length downto 1 do
if s[i]<>' ' then Insert('а',s,i+1);
Writeln(s)
end.
<u>Пример</u>
Введите строку Мама мыла раму маша ела кашу
Мааамааа маыалааа рааамауа мааашааа еалааа кааашауа
Var
i, g: integer;
begin
for i := 50 downto 2 do
if i mod 2 = 0 then g := g + i;
writeln(g);
end.
Var
x0, xk, dx, e, x, aa: real;
i: integer;
function f(x, a: real): real;
begin
if x < 0 then
f := 1 / Tan(x) + sqrt(1 + abs(x - 2))
else if x = 0 then
f := (a + x) + sin(Pi)
else
f := a * x * cos(x * Pi);
end;
begin
write('Введите промежуток и шаг ([a,b] h) и точность Е ');
readln(x0, xk, dx, e);
write('a =');
readln(aa);
x := x0;
writeln(' x ':10, ' | ', ' F(x,a) ':10);
repeat
writeln(x:10:3, ' | ', f(x, a):10:3);
x := x + dx;
until x >= xk;
end.