Question

Задание 1 (50 баллов). Дано шестизначное число, которое вводится с клавиатуры. Напишите программный код на языке Паскаль, который выведет на экран сообщение true или false в зависимости от того, равна ли сумма первых трёх цифр сумме трёх последних цифр. Задание 2 (50 баллов). Напишите на языке Паскаль программу, которая определит, является ли введенное с клавиатуры двухзначное число простым. Все входные данные необходимо задать самостоятельно. На проверку нужно прислать скриншоты окна программы с отображением кода и результатов работы.

Answer 1

Ответ:

program sum;

uses crt;

var x, sum1, sum2, i:integer;

begin

clrscr;

write('Введите 6-значное число:');

readln(x);

i:=0;

sum1:=0;

sum2:=0;

repeat

i:=i+1;

if i<4 then sum2:=sum2 + x mod 10 else sum1:=sum1 + x mod 10;

x:=x div 10;

until i=6;

if sum1 = sum2 then write('true') else write('false');

readln;

end.

Вот вам програмный код. Скриншоты уж сами сделайте, не сочтите за труд.

Answer 2

Задание 1:

pascalCopy code
program CheckSumEquality;
var
  number, firstSum, lastSum: integer;
begin
  write('Введите шестизначное число: ');
  readln(number);

  if (number >= 100000) and (number <= 999999) then
  begin
    firstSum := (number div 100000) + ((number div 10000) mod 10) + ((number div 1000) mod 10);
    lastSum := ((number div 100) mod 10) + ((number div 10) mod 10) + (number mod 10);

    if firstSum = lastSum then
      writeln('true')
    else
      writeln('false');
  end
  else
    writeln('Введено неверное число. Пожалуйста, введите шестизначное число.');

end.

Задание 2:

pascalCopy code
program CheckPrimeNumber;
var
  number, i: integer;
  isPrime: boolean;
begin
  write('Введите двухзначное число: ');
  readln(number);

  isPrime := true;

  if (number >= 10) and (number <= 99) then
  begin
    for i := 2 to number - 1 do
    begin
      if (number mod i) = 0 then
      begin
        isPrime := false;
        break;
      end;
    end;

    if isPrime then
      writeln('Число является простым.')
    else
      writeln('Число не является простым.');
  end
  else
    writeln('Введено неверное число. Пожалуйста, введите двухзначное число.');

end.

Вы можете выполнить эти программы в вашей среде разработки Pascal и предоставить скриншоты результатов и кода.