akustov55
?>

Спрограммированием, яне знаю как это решить но может кто знает ? //вычислить объем параллелепипеда и площадь поверхности //вычислить площадь прямоугольника #include using namespace std; class a { private: int a; int b; public: void seta(int h, int w) { a=h; b=w; } int geta() { return a*b; } int f() { return a; } }; int main() { a c1, c2; int x; int y; cout < < "высоту введи " < < endl; cin > > x; cout < < "ширину введи " < < endl; cin > > y; c1.seta(x, y); cout < < "только высота " < < c1.f() < < endl; int d = 4; int c=7; c2.seta(c, d); cout < < "только высота " < < c2.f() < < endl; cout < < c1.geta()+c2.geta()< < endl; return 0; }

Информатика

Ответы

pavelriga5
Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:

var s,a:string;
    begin
    write('Введите строку : ');
    readln(s);
    write('Введите слово : ');
    readln(a);
       if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть')
       else writeln('В строке такого слова нет');
    end.

Тест №1
Введите строку : Привет участникам олимпиады!
Введите слово : ник
Слово "ник" в строке есть

Тест №2
Введите строку : Всем привет!
Введите слово : админ
В строке такого слова нет
allo01
//PascalABC.NET 3.2 сборка 1318

Var
  arnx,armx,arny,army,delMmax:array[1..1000] of real;
  N,M,res,i,j:integer;
  min:real;
begin
min:=maxreal;
{не уверен существует ли эта константа в fpc, если что, она равна максимальному значению типа real}
readln(N);
for i:=1 to N do
    readln(arnx[i],arny[i]);
readln(M);
for i:=1 to M do
  begin
    readln(armx[i],army[i]);
    delMmax[i]:=-1;
    for j:=1 to N do
      if delMmax[i]<sqrt(sqr(armx[i]-arnx[j])+sqr(army[i]-arny[j]))
 then
 delMmax[i]:=sqrt(sqr(armx[i]-arnx[j])+sqr(army[i]-arny[j]));
    if delMmax[i]<min
 then
      begin
        min:=delMmax[i];
        res:=i;
      end;
 end;
writeln(res);
end.

Пример ввода:
3
2 1
1 2
1 1
3
1 5
3 3
4 2
Пример вывода:
2

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Спрограммированием, яне знаю как это решить но может кто знает ? //вычислить объем параллелепипеда и площадь поверхности //вычислить площадь прямоугольника #include using namespace std; class a { private: int a; int b; public: void seta(int h, int w) { a=h; b=w; } int geta() { return a*b; } int f() { return a; } }; int main() { a c1, c2; int x; int y; cout < < "высоту введи " < < endl; cin > > x; cout < < "ширину введи " < < endl; cin > > y; c1.seta(x, y); cout < < "только высота " < < c1.f() < < endl; int d = 4; int c=7; c2.seta(c, d); cout < < "только высота " < < c2.f() < < endl; cout < < c1.geta()+c2.geta()< < endl; return 0; }
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

ilonchick679
Vyacheslavovna1867
lanabogd
ksyrika
natalia595977
vis-lyubov8832
Aksinya1036
Amulenkov
Imarmy67
sergei641
chaa140
Aleksandrovich1075
vifslafes
mdclcompany
lukur2005