А компьютер не выделяет красненьким примерное место, где есть ошибка?
1)var a:integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2=0) then write('Чётное ')
else write('Нечётное ');
if (a div 100>=1)then write('трёхзначное число')
else if (a div 10>=1)then write('двузначное число')
else writeln('однозначное число');
<span>end.
2)</span>var a,b,c:real;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
if (a<b)and (b<c) then
begin
a:=2*a;
b:=2*b;
c:=2*c;end
else
begin
a:=(-1)*a;
b:=(-1)*b;
c:=(-1)*c;
end;
writeln(a);
writeln(b);
writeln(c);
end.
3)var a,b,c:integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
if a=b then writeln('3')
else if b=c then writeln('1')
else writeln('2');
<span>end.</span>
Программа находит сумму 11-ти чисел, удовлетворяющих условию быть кратным 7-ми, и не быть кратным 3-м
Числа в задаче даны в системе счисления с основанием 8:
24(8) = 2*8+4 = 20(10)
5(8) = 5(10)
12(8) = 8+2 = 10(10)
Ответ: 4. Но т.к. тут надо минимум 20 символов, вот интересный факт: <span>Кошки эволюционировали в отдельную семью (Felidae) примерно 25 миллионов лет назад. С тех пор они распространялись по всему миру и менялись, чтобы соответствовать своей среде обитания. </span>
