1) <span>if a > b then begin a:= b ; end else b:=a;
Вот правильный вариант еnd; был лишний так как еще одного begin не было
2)
Var s:integer;k:real;
begin
s:=255;if s mod 2=1 then begin s:= s-1 ;k:= s/2 end
else k:=s ;writeln(k)
end.
Тут у вас ; с запятой были потеряны после исправления ответ 127</span>
Ответ:
это там где у тебя есть писма смомощу елек почты можно регатся в сетях
650*3=1950 мб
16-14.9=1.1 гб свободного места
1950-1100=850 мб
1)
<span>#include<iostream>
#include<cmath>
void main()
{
char ch1, ch2;
int vol1, vol2;
std::cin >> ch1 >> vol1;
std::cin >> ch2 >> vol2;
if ((((abs(ch1 - ch2) <= 2) && (abs(vol1 - vol2) <= 2)) && ((ch1 != ch2) && (vol1 != vol2))) && !((abs(ch1 - ch2)==1) && (abs(vol1-vol2))==1))
std::cout << "Possible";
else
std::cout << "Impossible";
<span>}
3)
</span></span>#include<iostream>
using namespace std;
void main() {
<span>int n,m;
cin >> n,m;
cout<<n;
for(int i=n;i<=m;i++)
cout<<i+2;
}
4)
</span>#include <iostream>
<span>using namespace std;</span> void<span> main()</span>{<span>
int mass[2][4] //размерность своего массива вписывай.
</span><span> {</span><span>
{ 1, 2, 3, 4 }, //вписывай свои числа.
</span><span> { 1, 2, 3, 4 } </span><span>
}<span>;
</span></span>
for (int i=0 ; i<2;++i)
{
for (int j=0 ; j<4;++j)
{
if(mass[i][j]<0)
cout<<mass[i][j];
}
}
system("pause");
}
Var p,a,s:real;
begin
write('p = ');
readln(p);
a:=p/3;
s:=a*a*sqrt(3)/4;
writeln('a = ',a:5:2,' s = ',s:5:2);
end.
Пример:
p = 9
a = 3.00 s = 3.90