Question

НАПИШИТЕ ПРОГРАММУ В ПАСКАЛЕ!!!!! дано трехзначное число кратна ли сумма его цифр шести даю 45 баллов и не нужно писать что это число 222 если не знаете не отвечайте, мне нужен тот чел который реально понимает информатику (кто ответит сделаю лучшим ответом)

Answer 1

Ответ:

Var  

a,b,c,d,e:longint;  

begin  

readln(a);  

readln(c);  

d:=d+a mod 10;  

d:=d+a div 10 mod 10;  

d:=d+a div 100 mod 10;  

if d mod c = 0 then writeln('Yes') else writeln('No');  

end.

program zad1;

var     n : integer;

BEGIN

 Repeat

     writeln('введте трехзначное число');

     readln(n);

 Until n>99 and n<1000;

 Writeln((((n div 100)+((n div 10) mod 10)+(n mod  10)) mod 7)=0);

 

И все)) наверное не поймешь

Answer 2

Конечно, вот программа на Pascal, которая проверяет, кратна ли сумма цифр трехзначного числа шести:

pascalCopy code
program CheckNumber;

var
  number, sum: integer;

begin
  writeln('Введите трехзначное число: ');
  readln(number);
  
  if (number >= 100) and (number <= 999) then
  begin
    sum := (number div 100) + ((number div 10) mod 10) + (number mod 10);
    
    if sum mod 6 = 0 then
      writeln('Сумма цифр числа ', number, ' кратна 6.')
    else
      writeln('Сумма цифр числа ', number, ' не кратна 6.');
  end
  else
    writeln('Вы ввели не трехзначное число.');
end.

Эта программа запрашивает у пользователя трехзначное число, вычисляет сумму его цифр и проверяет, кратна ли эта сумма шести. Если сумма кратна шести, программа выводит сообщение о том, что сумма кратна 6, в противном случае - что сумма не кратна 6.