1. Дано целое число А. Проверить является ли число кратно 3, если да, то выдать сообщение «Кратно 3», иначе «Не кратно 3». 2. Составьте программу, которая определяет, является ли введенное с клавиатуры число двухзначным. 3. Даны три целых числа А, В, С. Проверить верно ли высказывание: «Хотя бы одно число положительное». Если да то выдать сообщение «Верно», иначе «Не верно». 4. Даны два вещественных числа А и В. Если А>В, то найти их сумму, иначе найти их произведение и вывести их результат. 5. Дано целое двузначное число. Если первая цифра данного числа четная, то нарисовать желтый квадрат, цвет контура красный, толщина 3, иначе красный круг. Цвет контура синий, толщина 3. Сделай эти задания в PascalABC. информатика 8 класс

1. В PascalABC:

var
  A: integer;
begin
  write('Введите число A: ');
  readln(A);

  if A mod 3 = 0 then
    writeln('Кратно 3')
  else
    writeln('Не кратно 3');
end.

2. В PascalABC:

var
  num: integer;
begin
  write('Введите число: ');
  readln(num);

  if (num >= 10) and (num <= 99) then
    writeln('Число является двузначным')
  else
    writeln('Число не является двузначным');
end.

3. В PascalABC:

var
  A, B, C: integer;
begin
  write('Введите число A: ');
  readln(A);
  write('Введите число B: ');
  readln(B);
  write('Введите число C: ');
  readln(C);

  if (A > 0) or (B > 0) or (C > 0) then
    writeln('Верно')
  else
    writeln('Не верно');
end.

4. В PascalABC:

var
  A, B: real;
  sum, product: real;
begin
  write('Введите число A: ');
  readln(A);
  write('Введите число B: ');
  readln(B);

  if A > B then
  begin
    sum := A + B;
    writeln('Сумма чисел: ', sum);
  end
  else
  begin
    product := A * B;
    writeln('Произведение чисел: ', product);
  end;
end.

5. В PascalABC:

var
  num: integer;
begin
  write('Введите двузначное число: ');
  readln(num);

  if num div 10 mod 2 = 0 then
  begin
    SetPenColor(clRed);
    SetPenWidth(3);
    SetBrushColor(clYellow);
    Rectangle(100, 100, 200, 200);
  end
  else
  begin
    SetPenColor(clBlue);
    SetPenWidth(3);
    SetBrushColor(clRed);
    Circle(150, 150, 50);
  end;
end.