Сделайте алгоритм цифр 78787878 в чертежнике

язык программирования: паскальvara, b, c, min : integer; beginreadln (a); readln (b);   readln (c);   min : = a; if b < min thenmin : = b; if c < min thenmin : = c; writeln (min); end.

program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.

ввел: asdfsss

результат: asdfs

либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.

прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа.

на  tpascal:

var i: integer;

begin

for i: =10 to 99 do begin

if i mod 3 = 2 then

writeln (i,' ',-i,' ');

i: =i+1;

end;

readln

end.

|з       з|

|         з|

|з   з     |