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

1. В PascalABC:

program kратно3; var A: integer; begin write('Введите число А: '); readln(A);

if A mod 3 = 0 then writeln('Кратно 3') else writeln('Не кратно 3'); end.

2. В PascalABC:

program двухзначное_число; var num: integer; begin write('Введите число: '); readln(num);

if (num >= 10) and (num <= 99) then writeln('Число является двухзначным') else writeln('Число не является двухзначным'); end.

3. В PascalABC:

program хотя_бы_одно_положительное; var A, B, C: integer; begin write('Введите число А: '); readln(A); write('Введите число В: '); readln(B); write('Введите число С: '); readln(C);

if (A > 0) or (B > 0) or (C > 0) then writeln('Верно') else writeln('Не верно'); end.

4. В PascalABC:

program сравнение_чисел; var A, B: real; begin write('Введите число А: '); readln(A); write('Введите число В: '); readln(B);

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

5. В PascalABC:

program четное_число; var num: integer; begin write('Введите двузначное число: '); readln(num);

if num div 10 mod 2 = 0 then begin SetPenColor(clRed); SetPenWidth(3); SetBrushColor(clYellow); DrawRectangle(100, 100, 200, 200); end else begin SetPenColor(clBlue); SetPenWidth(3); SetBrushColor(clRed); DrawCircle(150, 150, 50); end; end.