Составьте программу, которая генерирует случайное четырёхзначное число от 1000 до 9999 (номер автобусного билета), выводит его на экран и определяет, является ли билет "счастливым" (сумма первых двух цифр равна сумме последних двух цифр). ПАСКАЛЬ
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
program Bilet;
var k1,k2,k3,k4,n: integer;
begin
n := Random (9000)+1000;
Writeln (n);
k1 := n div 1000;
n := k - 1000*k1;
k2 := n div 100;
n := k - 100*k2;
k3 := n div 10;
n := k - 10*k3;
k4 := n;
if (k1+k2) = (k3+k4) then
Writeln ('Счастливый билет!!!');
end.
Объяснение: