№132. дан прямоугольник со сторонами a и b. сколько квадратов со стороной с можно из него вырезать. №146. вывести на печать переменные а, в, с в порядке их возрастания. оператор if

160

363

Посмотреть ответы 2

Ответы на вопрос:

Kitty85

Информатика

4,5(82 оценок)

№146 для начала нужно обьявить переменные,у меня обьявляются оператором dim,ну думаю,что дим нужен и при этом действие.

если переменная обозначает любой знак,не имея какого либо обозначения,или указания на конкретное число,тогда это переменная равна 0,обьявим ее.

dim a,b,c,

(если значение переменной равно 0,то можно распаложить ее в любом положении,или в задоном(изначально))

дальше выводим переменные на экран,

(если данная функция не работает,то,тогда нужно ввести после('),

print 'a'

print 'b'

print 'c'

ну и в конце пишем:

endif

примечание:

если значение переменных будет равна 0,то на экране тоже будет равна 0.

Azdes

Информатика

4,5(68 оценок)

Кажется так. необходи из алфавита вычесть общее количество знаков алфавита. program z1; var a,b,c: string; i,j,k,d,g: integer; begin writeln('шифрование? 1-да,0-нет'); readln(g); writeln('исходный текст '); readln(a); writeln('ключ'); readln(d); c: =''; b: ='абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; for i: =1 to length(a) do for j: =1 to length(b) do begin if g=0 then k: =(j-d) mod 32 else k: =(j+d); if k > 33 then k: =k-33; if a[i]=b[j] then c: =c+b[k]; end; writeln(c); end.