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

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

1.

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

2.

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

3.

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

4.

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

5.

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

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