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

1. Программа на PascalABC:

program CheckMultipleOfThree;
var
  A: integer;
begin
  write('Введите число A: ');
  readln(A);
  
  if A mod 3 = 0 then
    writeln('Кратно 3')
  else
    writeln('Не кратно 3');
end.

2. Программа на PascalABC:

program CheckTwoDigitNumber;
var
  Num: integer;
begin
  write('Введите число: ');
  readln(Num);
  
  if (Num >= 10) and (Num <= 99) then
    writeln('Двузначное число')
  else
    writeln('Не двузначное число');
end.

3. Программа на PascalABC:

program CheckPositiveNumber;
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:

program CompareNumbers;
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:

program DrawShape;
uses
  GraphABC;
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.

Обратите внимание, что в каждой программе есть часть кода, которая считывает данные с клавиатуры (при помощи readln) и выводит результат на экран (при помощи writeln). Вам нужно будет ввести значения или числа с клавиатуры и посмотреть результат работы программы.