1 задача
program proga;
var st,st2:string;
i:Integer;
begin
writeln('Введите число');
readln(st);
for i:=1 to length(st) do begin
st2:=st[i];
write(st2,' ');
end;
end.
2 задача
program proga2;
var st,st2:string;
i,a:Integer;
begin
writeln('Введите возраст');
readln(a);
if a>120 then
writeln('Неверные данные');
if a=1 then
writeln(a,' год');
if (a>1) and (a<5) then
writeln(a,' года');
if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год');
if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then
writeln(a,' лет');
if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года ');
if(a>104) and (a<110)then writeln(a,' лет');
end.
С++
#include <iostream>
void main()
{
int mass [5][5];
for (int i=0; i<5;i++)
for(int j=0; j<5l; j++)
mass[i][j]=rand()*20-10;
int pn [2];
int nn [2];
for(int i=0; i<5; i++)
for(int j=i+1; j<5; j++)
if (mass[i][j]>0)
{
pn[0]=i;
pn[1]=j;
break();
}
for(int i=4; i>=0; i--)
for(int j=i-1; j>=0; j--)
if(mass[i][j]<0)
{
nn[0]=i;
nn[i]=j;
break();
}
swap(mass[pn[0]] [pn[1]], mass [nn[0]] [nn[1]]);
}
