<span>program nomer;
var
N:integer;
begin
writeln('vvedite chislo ');
readln(N);
N:=(N div 100)+((N div 10) mod 10)+(N mod 10);
writeln('summa 4ucel ravna: ',N);
writeln;
readln;
end<span>.</span></span>
Var
a, b: integer;
begin
readln(a, b);
writeln('Сумма чисел: ', a+b);
writeln('Разница между числами: ', abs(a-b));
writeln('Квадрат разности: ', sqr(a-b));
writeln('Частное: ', a div b);
writeln('Остаток от деления первого на второе: ', a mod b);
end.
1)
#include <iostream>
#include <stdlib.h>
using namespace std;
int main() {
int a, k = 0;
cin >> a;
for(int b = abs(a);b > 0; b/=10)
if(b%10%2 == 0) k++;
cout << k << endl;
}
2)
#include <iostream>
#include <stdlib.h>
using namespace std;
int main() {
int n, a, b;
bool flagA = false, flagB = false;
cin >> n >> a >> b;
for(int d = abs(n);d > 0; d/=10) {
if(d%10 == a) flagA = true;
else if(d%10 == b) flagB = true;
}
cout << ((flagA && flagB) ? "true" : "false") << endl;
}
Type mas= Array [1..100] of integer;
var
a:mas;
i,c,b,n,s:integer;
begin
randomize;
writeln('введите размер массива n<=100 ');
readln(n);
for i:=1 to n
do A[i]=random(-50,50);
for i:=1 to n
do begin
c:=A[i] mod 10;
b:=A[i] div 10;
if b>c then
s+=A[i];
end;
writeln(s);
end.
Открыть, настройки и очистить кеш и данные приложения с которого хотят скачать, перезапустить и качать заного