Внесите изменения в программу sort_1 для решения следующей задачи исходные данные ни по какому полю не упорядочены.Отсортироваь таблицу чемпионата в алфавитном порядке названия команд
В начале мы записывает в переменные s и t такие значение как 11 и 12. То есть, s=11, t=12
У нас есть условие:
Если(if) значение переменной s (11) больше 10 а так же переменная t меньше или равно (это нам говорит оператор "not" , "not(t>10)" значит - что угодно кроме чисел больше 10) 10, тогда выполнить "writeln(s)" - тоесть вывести на экран число что записано в переменной s. В нашем случае t(12)>10 и оно не подходит под наше второе условие. В таком случае есть оператор "else" что обозначает "иначе" , тоесть если условие не выполняется то тогда срабатывает оператор else и срабатывает команда writeln(t) - что выводит на экран число что записано в переменной t .
В данном случае на выводе мы получим число 12.
Объяснение:
В начале мы записывает в переменные s и t такие значение как 11 и 12. То есть, s=11, t=12
У нас есть условие:
Если(if) значение переменной s (11) больше 10 а так же переменная t меньше или равно (это нам говорит оператор "not" , "not(t>10)" значит - что угодно кроме чисел больше 10) 10, тогда выполнить "writeln(s)" - тоесть вывести на экран число что записано в переменной s. В нашем случае t(12)>10 и оно не подходит под наше второе условие. В таком случае есть оператор "else" что обозначает "иначе" , тоесть если условие не выполняется то тогда срабатывает оператор else и срабатывает команда writeln(t) - что выводит на экран число что записано в переменной t .
Надеюсь я объяснил понятно, здесь все просто...
1.
program pifagor;
var
a,b:real;
begin
write('Введите катеты 》 ');
read(a,b);
write('Гипотенуза 》 ',sqrt(sqr(a)+sqr(b)));
end.
2.
program temp2;
var
a:integer;
begin
write('Введите число 》 ');
read(a);
write('Последняя цифра числа 》 ',a mod 10)
end.
3.
program pifagor;
var
a:integer;
begin
write('Введите трехзначное число 》 ');
read(a);
write('Сумма цифр числа = ',a div 100+a div 10 mod 10+a mod 10);
end.
4.
A=50
B=20
A=40-30=10
10<20
C=2×10=20
5.
program kratnost;
var
x:integer;
begin
write('Введите X 》 ');
read(x);
if(x mod 5=0)
then
write('X Делится на 5')
else
write('X Не делится на 5')
end.