Дана программа: program primer; var m,result : real; begin writeln( введите значения переменной m ); - id1051415320221120 от nek2017pro 20.11.2022 02:16

Question

Информатика: Дана программа: program primer; var m,result : real; begin writeln( введите значения переменной m ); write( m= ); readln(m); result : = sqr((5+m)*4); writeln ( sqr((5+m)*4) , result: 8: 0); readln; end. запусти паскаль, введи данную программу, получи результат, если m=1. ответ:

nek2017pro · Accepted Answer

Pascal:
var n,m:longint;
      f:boolean;
begin
write ('Decimal: ');
readln(n);
write ('Number: ');
readln (m);
f:=true;
while (n<>0) do
begin
    if ((n mod 10)=m) then
      begin
       f:=true;
       break;
      end;
    n:=n div 10;
end;
if f then writeln ('YES!') else writeln ('NO');
readln;
end.

C++:
#include <iostream>
using namespace std;

int main()
{
int n,m;
bool f = false;
cout <<"Decimal: ";
cin >>n;
cout <<"Number: ";
cin >>m;
while (n!=0)
{
    if ((n%10)==m)
    {
      f = true;
      break;
    }
    n/=10;
}
if (f)
    cout <<"YES!" <<endl;
else cout <<"NO!" <<endl;
return 0;
}

MOGZ ответил