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 < 100) 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, result: real;

begin
  write('Введите число A: ');
  readln(A);
  write('Введите число B: ');
  readln(B);
  
  if A > B then
  begin
    result := A + B;
    writeln('Сумма чисел: ', result:0:2);
  end
  else
  begin
    result := A * B;
    writeln('Произведение чисел: ', result:0:2);
  end;
end.

5. В PascalABC это может выглядеть так:

uses GraphABC;

var
  num, digit: integer;

begin
  write('Введите двузначное число: ');
  readln(num);
  
  digit := num div 10;
  
  // Если первая цифра четная
  if digit mod 2 = 0 then
  begin
    SetPenWidth(3);
    SetPenColor(clRed);
    SetBrushColor(clYellow);
    Rectangle(100, 100, 200, 200);
  end
  // Если первая цифра нечетная
  else
  begin
    SetPenWidth(3);
    SetPenColor(clBlue);
    SetBrushColor(clRed);
    Circle(150, 150, 50);
  end;
end.