var s : string; symb : char; i : longint;
begin
readln(s);
readln(symb);
if pos(symb,s)=0 then writeln('В этом слове нет этого символа')
else begin
i:=0;
while pos(symb,s)<>0 do begin
write(pos(symb,s)+i,' ');
i:=i+1;
Delete(s,pos(symb,s),1);
end;
end;
writeln;
writeln(i);
end.
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(50, -50, 49);
a.Println.Where(t -> t.InRange(-5, 5)).Println(', ').Count.Println
end.
A)
#include <iostream>
#include <cmath>
using namespace std;
int main() {
double c;
cin >> c;
for (int i=100; i<=1000; i+=50)
cout << i << " " << round(c*i/10)/100 << endl;
return 0;
}
b)
#include <iostream>
using namespace std;
int main() {
int n;
cin >> n;
for (int i=1; i<10; i++)
cout << i << " " << i*n << endl;
return 0;
}
45 секунд - 3/4 минуты, а значит за это время можно передать 4000Кб*(3/4)=3000Кб
var
x, y, R, c: real;
begin
c := 2; // тут задаётся радиус (на доске он вроде равен двум)
Write('введите через пробел координаты x, y: ');
Read(x, y);
R := Sqrt(Sqr(x) + Sqr(y));
if (c < R) and (x < 0) and (y > 0) then
Write('точка принадлежит данной фигуре')
else Write('точка не принадлежит данной фигуре');
end.
Второй скрин- показывает данную фигуру (заполнена случайными точками).