program z1; uses crt; var s: string; c: char; i: integer; begin write(' vvedite strocy: '); readln(s); writeln(); write(' vvedite sivol dl poiska: '); readln(c); writeln(); for i : = 1 to length(s) do if s[i] = c then // begin writeln(' simvol prinadlech stroce = ', s); break; end; if s[i] < > c then writeln(' simvola net v stroke = ', s); end.
ответ разместил:
не знаю паскаль, знаю c++ : )
{
int a, b;
//вводим значения в a и в b (в футах)
cin > > a > > b;
b = b*45;
if (a> b) cout < < "в км больше";
else cout > > "в футах больше";
}
{
// тут важен дробный тип
dooble a, b;
//вводим значения в a и в b (м/c)
cin > > a > > b;
a = a: 3.6;
if (a> b) cout < < "в км/ч больше";
else cout > > "в м/с больше";
}
ну а дальше надо уже все по формулам смотреть.
{
doouble a,b;
//вводим значения в a и в b стороны
cin > > a > > b;
a=a*a*3.14;
b=b*b;
if(a> b) cout < < "площадь круга больше";
else cout < < "площадь квадрата больше";
}
4. не знаю как такое делать, что значит уместиться ли круг в квадрате? уместится если радиус его меньше чем половина стороны.
5.
{
doouble a,b,c,d;
cin > > a > > b > > c > > d; // вводим объем и массу;
a = a/b;
c = c/d;
if(a> c) cout < < "тело 1 имеет плотность больше чем тело 2";
Вот
Объяснение:
начало
|
подойди к дороге
|
посмотри на светофор
|
цвет зелёный?
| |
если да если нет
| |
иди стой
\ /
конец алгоритма
Запиши в виде этой схемы
ответ разместил:
паскаль
откомпилирован в: pascal abc
program z1; uses crt; var s: string; c: char; i: integer; begin write(' vvedite strocy: '); readln(s); writeln(); write(' vvedite sivol dl poiska: '); readln(c); writeln(); for i : = 1 to length(s) do if s[i] = c then // begin writeln(' simvol prinadlech stroce = ', s); break; end; if s[i] < > c then writeln(' simvola net v stroke = ', s); end.
ответ разместил:
не знаю паскаль, знаю c++ : )
{
int a, b;
//вводим значения в a и в b (в футах)
cin > > a > > b;
b = b*45;
if (a> b) cout < < "в км больше";
else cout > > "в футах больше";
}
{
// тут важен дробный тип
dooble a, b;
//вводим значения в a и в b (м/c)
cin > > a > > b;
a = a: 3.6;
if (a> b) cout < < "в км/ч больше";
else cout > > "в м/с больше";
}
ну а дальше надо уже все по формулам смотреть.
{
doouble a,b;
//вводим значения в a и в b стороны
cin > > a > > b;
a=a*a*3.14;
b=b*b;
if(a> b) cout < < "площадь круга больше";
else cout < < "площадь квадрата больше";
}
4. не знаю как такое делать, что значит уместиться ли круг в квадрате? уместится если радиус его меньше чем половина стороны.
5.
{
doouble a,b,c,d;
cin > > a > > b > > c > > d; // вводим объем и массу;
a = a/b;
c = c/d;
if(a> c) cout < < "тело 1 имеет плотность больше чем тело 2";
else cout < < "тело 2 имеет большую плотность";
}
6. не знаю. но тоже как-то через форумулы.
ответ разместил: Гость
бор (сосновый бор к примеру)
бордюр
набор