/////////////////////////////
Запишем как систему уравнений
x - кошка
y - котёнок
4x+3y=15
3x+4y=13
Домножим
4x+3y=15
-3x-4y=-13
Сложим
x-y=2
x=2+y
Подставим
4(2+y)+3y=15
8+4y+3y=15
7y=7
y=1
Подставим
4x+3(1)=15
4x=12
x=3
y=1
Ответ:Кошка весит 3 кг, а котёнок весит 1 кг
Program n1;
//Название программы
var i,n,sum: integer;
//Объявление переменных
begin
//Начало
readln(n);
//Ввод n (количество чисел) и и переход на следущую строку
sum:=0;
//Присваивание переменной sum знаяения 0 (изначально сумма равна 0)
for i:=1 to n do sum:=sum+2*i;
//В цикле от 1 до n к переменной
//sum прибавляем 2*i, т.е. 1*2+2*2+3*2+..n*2=2+4+6+..+2n;
writeln(sum);
//Ввод sum (cумма первых n целых положительных четных чисел)
//и и переход на следущую строку
end.
//Конец
Program LeastCommonMult;
var
m, n, prod: word;
begin
readln(m, n);
prod := m * n;
while m <> n do begin
if m > n then begin
m := m - n
end
else begin
n := n - m
end
end;
writeln(prod div m)
end.
Во второй строчке видим операторы 'if' и 'then', которые переводятся с английского как 'если' и 'тогда' соответственно. Т. е. если, как бы, перевести вторую строчку на русский язык, то получим следующее:
"если a < 5 тогда"
Таким находящаяся после then функция выполняется только в том случае, если выражение между if и then верно.
Разберем фрагмент кода:
a := 10;
if a < 5 then
a := 5;
Понятно, что на первой строчке переменная 'a' приравнивается к 10. Затем на второй строчке идет условие a < 5. Подставляем 'a': 10<5 — неравенство не верно, поэтому 'a := 5; ' не будет выполнено в этой программе, и 'a' не изменилось, и по-прежнему равно 10.
Рассмотрим еще один фрагмент
a := 15;
if a > 10 then
a := 10;
В первой строке 'a' приравнивается к 15. Затем идет условие a>10, 15>10 — верно, поэтому выполняем следующую строку и приравниваем 'a' к 10. В итоге 'a' становится равным 10
