2)program 2;
var
k:integer;
<span>
tmp:real;</span><span>
b:string;</span><span>
c:string;</span><span>
i:integer;
</span>
begin
<span>
k:=0; i:=0; tmp:=0;</span><span><span>
write('</span>Введите k:');</span><span>
read(k);</span><span>
repeat</span><span>
tmp:=exp(i*ln(10));</span><span>
str(tmp:0:0, c);</span><span>
b:=b+c;</span><span>
i:=i+1;</span><span>
until length(b) >= k;</span><span>
c:=copy(b, k, 1);</span><span>
writeln(b);</span><span>
writeln('k-я цифра:', c);</span><span>
readln(k);</span>
<span>end.</span>
Program fff;
var c: Char; n, u, sum: Integer; begin write('Кол-во цифр для ввода: '); readln(n); for u := 1 to n do begin readln(c); sum := sum + Ord(c)-48; end; writeln('Кол-во введёных цифр = ', n); writeln('Сумма введёных цифр = ', sum);end.
Всё размыто и не видно ближе както камеру приближ или напиши вопр !
1 вариант по векторам:
использовать Чертежник
алг
нач
сместиться на вектор (1,10)
опустить перо
сместиться на вектор (3,-5)
сместиться на вектор (1.6,0)
поднять перо
сместиться на вектор (1.4,5)
опустить перо
сместиться на вектор (-2.5,-9)
сместиться на вектор (-3.5,0)
поднять перо
сместиться на вектор (7,0)
опустить перо
сместиться на вектор (0,9)
сместиться на вектор (4,0)
сместиться на вектор (1,-1)
сместиться на вектор (0,-3)
сместиться на вектор (-1,-1)
сместиться на вектор (-4,0)
поднять перо
сместиться на вектор (6,-4)
опустить перо
сместиться на вектор (3.5,9)
сместиться на вектор (3.5,-9)
поднять перо
сместиться на вектор (-5.5,4)
опустить перо
сместиться на вектор (4,0)
поднять перо
сместиться в точку (0,0)
кон
2 вариант - написать:
использовать Чертежник
алг
нач
вещ n=55
лит m="УРА"
написать(n, m)
кон