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

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

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

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

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

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

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

program CheckPositiveNumber;
var
  A, B, C: integer;
begin
  writeln('Введите три числа (A, B, C):');
  readln(A, B, C);
  
  if (A > 0) or (B > 0) or (C > 0) then
    writeln('Верно')
  else
    writeln('Не верно');
end.

4. Программа, которая сравнивает два вещественных числа и выводит результат:

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

5. Программа, которая рисует квадрат или круг в зависимости от первой цифры числа:

program DrawShape;
var
  number: integer;
begin
  writeln('Введите двузначное число:');
  readln(number);
  
  if number div 10 mod 2 = 0 then
  begin
    writeln('Желтый квадрат (цвет контура: красный, толщина: 3)');
  end
  else
    writeln('Красный круг (цвет контура: синий, толщина: 3)');
end.

Надеюсь, эти решения помогут вам подготовиться к экзамену по информатике!