Так как мы не знаем длину числа и нам надо только первые две цифры, то можно поступить так: 1. Переводим число в строку и выделяем две подстроки символ длиной в 1 с начала строки, которые переводим обратно в целое. 2. А дальше стандартно с целочисленного деления выясняем четность первой цифры числа.
var a,a1,a2:integer; s:string begin readln(a); //преобразуем число в строку и найдем первые 2 цифры str(a,s); a1:=strtoint(copy(s,1,1)); a2:=strtoint(copy(s,2,1)); writeln('Первая цифра числа: ',a1); writeln('Вторая цифра числа: ',a2); //Проверим первую цифру на четность if a1 mod 2 =0 then writeln(a1,' - четная') else writeln(a1,' - нечетная') end.
1. Чатуранга — древнеиндийская игра, считающаяся прародителем шахмат.Бобби Фишер остался непобежденным чемпионом мира, потому что отказался играть матч.
2. Ученый - Михаил Васильевич Ломоносов. Диалог: — «Что, сударь, я полагаю, это ученость выглядывает оттуда?» — «Нисколько», - ответил Ломоносов. - «Это глупость заглядывает туда.» (Портрет Ломоносова - в прилагаемом файле).
3. По моде того времени у Моны Лизы выбриты брови. Картина находится в Лувре (Париж, Франция). Адрес web-сайта музея ищите сами (здесь ссылки нельзя размещать).
begin
write ('Введите длину основания: '); read (b);
write ('Введите длину высоты: '); read (h);
s:=1/2*b*h;
a:=sqrt(sqr(b)/2);
writeln ('Площадь = ',s);
writeln ('Боковые стороны равны = ',a);
end.