1) var a,b:integer; begin readln(a,b); writeln('Сумма единиц: ',a mod 10+b mod 10); writeln('Сумма десятков: ',(a div 10) mod 10+(b div 10) mod 10); end.
2)var a:integer; begin readln(a); if a mod 2=0 then writeln('Делится на 2') else writeln('Не делится на 2'); if a mod 3=0 then writeln('Делится на 3') else writeln('Не делится на 3'); if a mod 5=0 then writeln('Делится на 5') else writeln('Не делится на 5'); end.
3)var a,b,c:integer; begin readln(a); c:=a; while a>0 do begin b:=10*b+a mod 10; a:=a div 10; end; writeln(c-b); end.
Код C++
#include <conio.h>
#include <stdio.h>
#include <string.h>
#include <iostream.h>
void main();
{clrscr();
char s[50];
char s1{}=" ";
char *p;
char *q;
char e[50];
int g,a;
cout<<"vvedite tekst:"<<endl<<endl;
gets(s);
p=strtok(s,s1);
while(p)
{if(*p==' ')
p=strtok(s,s1);
g=strlen(p);
cout<<endl<<g<<endl;
if(a<g)
{a=g;
*e=*p;
}
p=strtok(NULL,s1);
}
puts(e);
cout<<endl<<e;
getch();
}
begin
readln(a,b);
writeln('Сумма единиц: ',a mod 10+b mod 10);
writeln('Сумма десятков: ',(a div 10) mod 10+(b div 10) mod 10);
end.
2)var a:integer;
begin
readln(a);
if a mod 2=0 then writeln('Делится на 2') else writeln('Не делится на 2');
if a mod 3=0 then writeln('Делится на 3') else writeln('Не делится на 3');
if a mod 5=0 then writeln('Делится на 5') else writeln('Не делится на 5');
end.
3)var a,b,c:integer;
begin
readln(a);
c:=a;
while a>0 do begin
b:=10*b+a mod 10;
a:=a div 10;
end;
writeln(c-b);
end.