1. решение для "школьников"// pascalabc.net 3.0, сборка 1073 var i,n: integer; s: string; begin write('введите свое имя: '); readln(s); if s[1]='и' then begin n: =length(s)-1; s: =s[1]; for i: =1 to n do s: =s+'*' end; writeln('результат работы: ',s) end. тестовое решение: введите свое имя: игорь результат работы: и**** введите свое имя: сергей результат работы: сергей 2. решение, каким оно должно быть, но этому не учат // pascalabc.net 3.0, сборка 1073 begin var s: =readstring('введите свое имя: '); if s[1]='и' then s: =s[1]+stringofchar('*',length(s)-1); writeln('результат работы: ',s) end.
laplena1982750
08.10.2022
1. #include < iostream> using namespace std; int main() { setlocale(lc_all, "russian"); int x; cout < < "введите число: "; cin > > x; if (x> 7) cout < < "" < < x/1.5 < < endl; else cout < < "" < < x*7 < < endl; system ("pause"); } 2. #include < iostream> using namespace std; int main() { int x; setlocale (lc_all, "russian"); cout < < "введите число: " < < endl; cin > > x; if (x % 7 == 0) cout < < "делится" < < endl; else cout < < "не делится" < < endl; system ("pause"); } 3. тут зависит от номера квартиры. допустим, номер будет 50. #include < iostream> using namespace std; int main() { float x, y; setlocale (lc_all, "russian"); cout < < "введите первое число: "; cin > > x; cout < < "введите второе число: "; cin > > y; if (x == 50 || y == 50) cout < < "есть" < < endl; else cout < < "нету" < < endl; system ("pause"); }
(4 > -(4 + x)·x)) = true
(30 > x·x) = false
4> -4x-x^2
x^2+4x+4> 0
(x+2)^2> 0
x< > -2
(30 < x·x)
|x|> root(30)~5.47
x = 6