Написать программу обращения заданного слова (qbasic)

Информатика

Ответить

Ответы

ltdfoliant62

30.12.2022

Cls input "vvedite slovo: ", c$ b$ = c$ l% = len(c$) for i% = 1 to l% mid$(b$, i%, 1) = mid$(c$, l% - i% + 1, 1) next i% print "naoborot: " + b$ end тестовое решение: vvedite slovo: hello naoborot: olleh чтобы продолжить, нажмите любую клавишу

sergei641

30.12.2022

function nod(a,b: integer): integer; begin if a mod b< > 0 then nod: =nod(b,a mod b) else nod: =b end; var a,b,c: integer; begin readln(a,b,c); writeln(nod(nod(a,b),c)); readln end.

p.s. я не уверен что это правильно

mar1030

30.12.2022

овал (начало)

параллелепипед (х)

-ромб (х> 10)-

прямоуголник (х: =х+2) прямоугольник (х: =х*2)

параллелепипед (х)

овал (конец)