Напишите программу при помощи оператора random, A: array [1..10] of integer; для задачи: определить сумму цифр трехзначного числа кратных 4 На языке Паскаль!
program SumOfDigits; var A: array [1..10] of integer; num, sum, i: integer;
begin randomize;
sum := 0;
for i := 1 to 10 do begin num := random(225) + 100; // генерируем трехзначное число if (num mod 4 = 0) then // проверяем, кратно ли число 4 begin writeln('Number: ', num); sum := (num div 100) + ((num div 10) mod 10) + (num mod 10); // вычисляем сумму цифр writeln('Sum of digits: ', sum); end; end;
program SumOfDigits;
var
A: array [1..10] of integer;
num, sum, i: integer;
begin
randomize;
sum := 0;
for i := 1 to 10 do
begin
num := random(225) + 100; // генерируем трехзначное число
if (num mod 4 = 0) then // проверяем, кратно ли число 4
begin
writeln('Number: ', num);
sum := (num div 100) + ((num div 10) mod 10) + (num mod 10); // вычисляем сумму цифр
writeln('Sum of digits: ', sum);
end;
end;
end.