Загадывается трехзначное число х. из него нужно вычеркнуть одну цифру так, чтобы оставшееся число y являлось делителем иходного числа х. напишите такую программув pascalabcnet
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var x:=ReadInteger('Введите трехзначное число:'); var (a,b,c):=(x div 100,x div 10 mod 10,x mod 10); if b+c<>0 then if x mod (10*b+c)=0 then begin Writeln('Вычеркнуть первую цифру (',a,')'); Exit end else if a+c<>0 then if x mod (10*a+c)=0 then begin Writeln('Вычеркнуть вторую цифру (',b,')'); Exit end else if a+b<>0 then if x mod (10*a+b)=0 then begin Writeln('Вычеркнуть третью цифру (',c,')'); Exit end; Writeln('Нет решения') end.
Program SimpleText;var a,FirstN,SecondN,ThirdN : integer;Begintryreadln(a);FirstN := a div 100;SecondN := ((a div 10) mod 10 );ThirdN :=( a mod 10);if ( a mod (SecondN*10+ThirdN) = 0 ) then writeln('Вычеркиваем первую цифру')else if ( a mod (FirstN*10+ThirdN) = 0) then writeln('Вычеркиваем вторую цифру')else if ( a mod (FirstN*10+SecondN) = 0) then writeln('Вычеркиваем третью цифру')else writeln('Неверно загадано число'); excepton System.DivideByZeroException do writeln('Деление на 0');end;end.
Программное обеспечение-это набор команд ,управляющих работой компьютера. Без программного обеспечения компьютер не сможет выполнять задачи, которые мы обычно связываем с компьютерами. функции программного обеспечения следующие: 1)управлять компьютерными ресурсами организации;2)обеспечивать пользователя всеми инструментами,необходимыми для извлечения пользы из этих ресурсов; 3)выполнять роль посредника между организациями и хранимой информацией ;выбор соответствующего потребностям организации программного обеспечения - одна из ключевых задач управляющего персонала
var m, n, i, j: integer; s: real; a: array[,] of real;
begin write('Введите S: '); read(s); write('Введите M, N: '); read(m, n); setlength(a, m + 1, n + 1); writeln('Введите элементы матрицы: '); for i := 1 to m do for j := 1 to n do read(a[i, j]); for i := 1 to m do begin for j := 1 to n do if a[i, j] <> s then begin writeln(a[i, j]); break; end; if a[i, j] = s then writeln('-'); end; end.
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadInteger('Введите трехзначное число:');
var (a,b,c):=(x div 100,x div 10 mod 10,x mod 10);
if b+c<>0 then
if x mod (10*b+c)=0 then begin
Writeln('Вычеркнуть первую цифру (',a,')');
Exit
end
else
if a+c<>0 then
if x mod (10*a+c)=0 then begin
Writeln('Вычеркнуть вторую цифру (',b,')');
Exit
end
else
if a+b<>0 then
if x mod (10*a+b)=0 then begin
Writeln('Вычеркнуть третью цифру (',c,')');
Exit
end;
Writeln('Нет решения')
end.