Написать программу «выделение цифр в записи числа» дано трехзначное число. определить, является ли сумма его цифр кратна 3 и 5.

var

a,s,n: integer;

begin

repeat 

write ('a ='); readln(a);

until (a> =100) and (a< =999);

n: =a;  

while n div 10 < > 0 do begin

n: =a;  

s: =s+a mod 10;

a: =a div 10;

end;

if (s mod 3 = 0) or (s mod 5 = 0) then writeln ('yes') else writeln ('no');

readln;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

#include < iostream> #include < conio.h> using namespace std; int main() {   setlocale(0,"russian");   int a,b;   cout < < "введите значение 1 переменной: ";   cin > > a;   cout < < "введите значение 2 переменной: ";   cin > > b;   if(a ! = b)   {     int sum = a + b;     a = sum;     b = sum;   }   else   {     a = 0;     b = 0;   } getch(); return 0; }

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('введите строку слов: ');   var w: =readlnstring('введите слово для замены: ');   var (fc,lc): =(w.first,w.last);   s: =s.towords.select(v-> (pos(fc,v)> 0) or (pos(lc,v)> 0)? w: v)           .joinintostring;   writeln(s) end. пример введите строку слов: наша таня громко плачет уронила в речку мячик введите слово для замены: удалено наша таня удалено плачет удалено в удалено мячик