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

Конечно! Вот решение этих задач на языке PascalABC:

1. Программа для проверки кратности числа А к числу 3:

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

2. Программа для определения двузначного числа:

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

3. Программа для проверки хотя бы одного положительного числа:

program CheckPositiveNumbers;
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. Программа для нахождения суммы или произведения вещественных чисел:

program CalculateNumbers;
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:0:2);
  end
  else
  begin
    product := A * B;
    writeln('Произведение:', product:0:2);
  end;
end.

5. Программа для рисования квадрата или круга:

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.

Приведенные программы решают поставленные задачи. Убедитесь, что вы используете среду PascalABC, чтобы выполнить эти программы.