#include <iostream>
using namespace std;
int main(int argc, char** argv)
{
int a,b,s,p;
cout<<"Input a: ";
cin>>a;
cout<<"Input b: ";
cin>>b;
p = (a+b)*2;
s= a*b;
cout<<"Perimetr: "<<p<<"\nPloschad: "<<s<<endl;
}
Диагональ не знаю как.
2. #include <iostream>
using namespace std;
int main(int argc, char** argv)
{
int a,b,c;
cout<<"Input a: ";
cin>>a;
cout<<"Input b: ";
cin>>b;
cout<<"Input c: ";
cin>>c;
if(a==b or a==c)
{
cout<<"Yes!"<<endl;
}
else if(b==a or b==c)
{
cout<<"Yes!"<<endl;
}
else if(c==a or c==b)
{
cout<<"Yes!"<<endl;
}
else
{
cout<<"Oops!"<<endl;
}
}
3. #include <iostream>
using namespace std;
int main(int argc, char** argv)
{
setlocale(LC_ALL, "Russian");
int a;
cout<<"Input a: ";
cin>>a;
switch(a)
{
case 1:
case 2:
case 3:
cout<<"Íèçêèé!"<<endl;
break;
case 4:
case 5:
case 6:
cout<<"Ñðåäíèé!"<<endl;
break;
case 7:
case 8:
case 9:
cout<<"Äîñòàòî÷íûé!"<<endl;
break;
case 10:
case 11:
case 12:
cout<<"Âûñîêèé!"<<endl;
break;
default:
cout<<"Error!"<<endl;
break;
}
}
4. #include <iostream>
using namespace std;
int main(int argc, char** argv)
{
int a, a1, a2, a3, a4, a5, a6;
cout<<"Input a: ";
cin>>a;
a1=a/1000;
a2=a/100%10;
a3=a%100/10;
a4=a%10;
a5=a1;
a6=a3;
if(a5>a1 && a6>a3)
{
cout<<"Number more"<<endl;
}
}
Вроде так
Объяснение:
2,5 секунды
Объяснение:
I = K * i, где
I - информационный объём изображения (размер файла, содержащего изображение)
K - количество точек (пикселей)
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
N = 2^i, где
N - количество цветов в палитре
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
^ - знак степени
I = V * t, где
I - объем переданной информации
V - скорость соединения (пропускная канала, в битах в секунду или подобных единицах)
t - время передачи
Дано:
V = 28 800 бит/с
K = 120 * 100 = 12 000 пикселей
N = 64 цвета
Найти:
t
N = 2^i
64 = 2^i
64 = 2⁶
i = 6 бит
I = K * i
I = 12 000 * 6 = 72 000 бит
I = V * t
t = I / V
t = 72 000 / 28 800 = 2,5 сек
const zn=[' ',':',',','!','?','-',';',')'];
var s,s1,s2:string;
i,k:byte;
begin
clrscr;
writeln('Введите строку, содержащую 2 одинаковых слова:');
readln(s);
s:=s+' ';
for i:=1 to length(s) do
if s[i] in zn then s[i]:=' ';
while pos(' ',s)>0 do
delete(s,pos(' ',s),1);
if s[1]=' ' then delete(s,1,1);
k:=0;
while pos(' ',s)>0 do
begin
s1:=copy(s,1,pos(' ',s)-1);
for i:=pos(' ',s)+1 to length(s) do
if (copy(s,i,length(s1))=s1)
and(s[i-1]=' ')
and((s[i+length(s1)]=' ')
or(i+length(s1)-1=length(s))) then
begin
k:=1;
s2:=s1;
write('Одинаковые слова ',s2);
readln;
exit;
end;
delete(s,1,pos(' ',s));
end;
if k=0 then write('Нет двух одинаковых слов');
readln
end.