Free pascal. вывести на экран консоли символы латинского алфавита чти коды кратны 2 и 3 одновременно.

153

404

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

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

GanyaOle

Информатика

4,6(18 оценок)

Символы лат. алфавита от a=41h=4*16+1=65 до z=5ah=5*16+10=90 среди них кратны 2 и 3, то есть кратны 6, коды: b = 66, h = 72, n = 78, t = 84, z = 90. в паскале код буквы выводит функция ord(c), где с имеет тип char. наоборот, букву по коду выводит функция chr(i), где i - число. begin var i: integer for i : = 66 to 91 do { begin writeln chr(i); i : = i+5; end } end. в паскале нельзя задать цикл с произвольным шагом (или можно, но я не помню, как), поэтому я внутри цикла прибавляю 5, а сам цикл прибавляет еще 1, и получается шаг 6. если не получается, исправьте i+5 на i+6. в итоге вы должны получить буквы b, h, n, t, z. если надо еще и маленькие буквы, то их коды от a=61h=97 до z=7ah=122, из них кратны 6 : f = 102; l(l) = 108; r = 114; x = 120. тогда нужно в прогамму добавить второй цикл: for i : = 102 to 121 do { begin writeln chr(i); i : = i+5; end } end.

GuldanaManarbek

Информатика

4,4(30 оценок)

1. var a,c: integer; m: set of 0..9; b: boolean; begin readln(a); m: =[]; b: =false; while a> 0 do begin c: =a mod 10; if c in m then b: =true; m: =m+[c]; a: =a div 10; end; if b then writeln('да') else writeln('нет'); end. пример: 121 да 2. var a,b,c: integer; begin readln(a); c: =a; b: =0; while c> 0 do begin b: =b*10+c mod 10; c: =c div 10; end; if a=b then writeln('перевертыш') else writeln('нет'); end. пример: 121 перевертыш