Program a;
var a: integer;
begin
writeln ('Vvedite chislo: ');
readln(a);
if (a < 0) then write('0')
else if ((a >= 0) and (a <= 18)) then write('1')
else write ('2');
end.
Треугольников 40
и 10 квадратов
Есть очень простая формула. Конечное значение плюс 1 и минус начальное.
<span>for I:= 1 to 13 do k:= k-1; ⇒ 13+1-1 = 13 раз
for I:= 3 to 4 do k:=k*1; ⇒ 4+1-3 = 2 раза
for I:= 2 to 2 do k:=k+1</span> ⇒ 2+1-2 = 1 раз
<em /><em />Если в три переменные:
var a,b,c:integer;
begin
writeln ('Введите 3 числа');
read (a,b,c);
if (a=b)or (a=c) or (b=c) then
begin
if (a>1) and (b>1) and (c>1)and (a=b) and (a=c) and (b=c) then //Одно ненужное условие для наглядности
writeln ('Все числа одинаковые');
if ((a>1) and (b>1) and (a=b)) or ((a>1) and (c>1) and (a=c)) or ((b>1) and (c>1) and (b=c)) then writeln (2);
end
else writeln ('Нет одинаковых чисел');
end.