ПРЯМ СЕЙЧАС НУЖНО ОЧЕНЬ СИЛЬНО БУДУ БЛАГОДАРНА))) 1. Сравните след. единицы измерений, используя знаки - id1280265320210810 от mishkaievlev 10.08.2021 19:47

Question

Информатика: ПРЯМ СЕЙЧАС НУЖНО ОЧЕНЬ СИЛЬНО БУДУ БЛАГОДАРНА))) 1. Сравните след. единицы измерений, используя знаки , ,= 40 Бит 5 Байт 2072 КБ 3 МБ 4 ГБ 4000 МБ 1 ТБ 7000 ГБ добрые люди, я ваш ответ сделаю самый лучший(если конечно будет правильно)

mishkaievlev · Accepted Answer

Pascal:
var n,a,s:longint;
begin
repeat
    write ('N = ');
    readln(n);
until n in [10..99];
write ('A = ');
readln(a);
  s:=0;
while n<>0 do
    begin
       s:=s+n mod 10;
       n:=n div 10;
    end;
if s>a then writeln ('YES') else writeln ('NO');
readln;
end.

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

int main()
{
   int a,n,s = 0;
   do
   {
      cout <<"N = ";
      cin >>n;
   }
   while (n<10 || n>99);
   cout <<"A = ";
   cin >>a;
   while (n!=0)
   {
     s+=n%10;
     n/=10;
   }
   if (s>a)
      cout <<"YES" <<endl;
   else cout <<"NO" <<endl;
   return 0;
}

MOGZ ответил