с информатикой (8 класс программирование в PaskalABC)
1.Строчные английские буквы расположены в кодовой таблице символов в порядке своего следования в алфавите и имеют коды с 97 по 122. Написать программу, которая принимает на ввод одну из строчных букв английского алфавита, а возвращает её порядковый номер в алфавите и букву с тем же порядковым номером, но с конца.
Пример: Порядковый номер буквы d в английском алфавите – 4, буква с тем же порядковым номером, но с конца – w.
2.Написать программу, которая проверяет истинность высказывания о том, что введённое пользователем число х – целое.
Пример: при x = 7.74, значение истинности высказывания – false.
3.Написать программу, которая проверяет истинность высказывания о том, что слово из пяти букв, введённое пользователем, является палиндромом.
Палиндром – это слово которое читается одинаково как слева направо, так и наоборот.
Пример: при слове довод, значение истинности высказывания – true.
4.Найти наибольшее из двух чисел, введённых пользователем. Если числа равны между собой, вывести любое из них.
Пример: из чисел 75.2 и 65.1 наибольшее – 75.2.
5.3 отрезка заданы своими длинами. Определить, образуют ли эти отрезки треугольник, и если образуют, то какой: остроугольный, прямоугольный или тупоугольный.
(тут должны быть 3 треугольника)
Пример: отрезки с длинами равными 45, 11 и 60 не образуют треугольник.
i,max,min,k:integer;
arifm:real;
begin
k:=0;
arifm:=0;
Randomize;
for i:=0 to 9 do
mas[i]:=Random(15);
for i:=0 to 9 do
write(mas[i],' ');
{poisk max}
max:=mas[0];
for i:=1 to 9 do
if max<mas[i] then
max:=mas[i];
{poisk min}
min:=mas[0];
for i:=1 to 9 do
if min>mas[i] then
min:=mas[i];
arifm:=(max+min)/2;
writeln('max: ',max);
writeln('min: ',min);
writeln('arifm: ',arifm:0:3);
for i:=0 to 9 do
if mas[i]<arifm then
inc(k);
writeln('k: ',k);
readln;
end.