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.

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