// PascalABC.Net 3.0, сборка 1064 var a,b:byte; begin Write('Введите два кода символов, большие 31: '); Read(a,b); if (a<32) or (b<32) then Writeln('Код должен быть больше 31') else begin Write('Символы, соответствующие кодам: <'); if a>b then Write(Chr(a),'> и <',Chr(b),'>') else Write(Chr(b),'> и <',Chr(a),'>') end end.
Тестовое решение: Введите два кода символов, большие 31: 42 198 Символы, соответствующие кодам: <Ж> и <*>
Var a,k,m,min,i,flag:integer; begin readln(a); m:=a; {сохраняю введенное значение и считаю кол-во цифр в числе} while m >0 do begin m:=m div 10; k:=k+1; end; min:=9; {записываю самое большое нечетное число} {в цикле отсекаю последнюю цифру в числе и проверяю ее на нечетность. Если она нечетная и меньше числа min, то сохраняю ее в min и присваиваю переменной Flag 1. Если к концу программы в переменной flag будет 1, значит хотя бы одна нечетная цифра в числе была, если flag=0 тогда в числе нет нечетных} for i:=1 to k do begin if (a mod 10<=min)and(a mod 2<>0) then begin min:=a mod 10; flag:=1; end; a:=a div 10; end; if flag=0 then writeln('нет нечетных') else writeln(min); end.
1.Найти фотографии своего класса. 2.Создать первый слайд:Вставить фотографию всего класса,написать кто сделал презентацию и сделать надпись "Наш класс". 3.Сделать второй слайд: написать о своём классном руководителе,вставить его фото и сделать заголовок. 4.Сделать четвертый слайд:написать о себе,вставить своё фото и сделать заголовок. 5.Создавать слайдов столько сколько у тебя одноклассников,делать их так же как про себя.Спрашивать у них про них. 6.Предпоследний слайд сделать с пожеланиями своим одноклассникам. 7.На последнем слайде можно поставить красивую картинку или смайл и написать за внимание!
var
a,b:byte;
begin
Write('Введите два кода символов, большие 31: '); Read(a,b);
if (a<32) or (b<32) then Writeln('Код должен быть больше 31')
else begin
Write('Символы, соответствующие кодам: <');
if a>b then Write(Chr(a),'> и <',Chr(b),'>')
else Write(Chr(b),'> и <',Chr(a),'>')
end
end.
Тестовое решение:
Введите два кода символов, большие 31: 42 198
Символы, соответствующие кодам: <Ж> и <*>