Var x,y: real;
var a,b,c,d:integer;
begin
readln(x,y);
if (y<1) then
write ('1')
else write ('0');
if (y<-x) then
write ('1')
else write ('0');
if sqr(x)+sqr(y)<1 then
write ('1')
else write ('0');
if sqr(x-1)+sqr(y)<1 then
write ('1')
else write ('0');
<span>end.</span>
При условии что кроме пробелов и точек других символов или цифр нету, т.к. в задании о них не сказано:
#include <algorithm>
#include <iostream>
using namespace std;
int main()
{
string s;
cout << "Enter string: ";
getline(cin, s);
for (auto i : s) {
if (i == '.') {
cout << count_if(
s.begin(),
s.end(),
[](auto c) {
return c != ' ' && c != '.';
}
) << endl;
}
}
return 0;
}
Ответ:
Объяснение:
program tablitsa_funktsii;
Var a,b,h,x:real;
Begin
write('Введите отрезок [a,b]: ');readln(a,b);
write('Введите шаг h: ');readln(h);
writeln('-------------');
writeln(' x |',' f(x) ');
writeln('-------------');
x:=a;
While x<=b do
Begin
writeln(x:6:2,'|':1,2*cos(x)-1:6:2);
x:=x+h;
End;
readln;
End.
ответ: 1-Россия, 2-Китай, 3-Украина, 4-Германия, 5-Италия
Ответ:
В книге Эрика Мэтиза .
https://codernet.ru/books/python/izuchaem_python_programmirovanie_igr_vizualizaciya_dannyx_veb-prilozheniya/
страница 225