#include <stdio.h>
#include <stdlib.h>
#include <string.h>
int main()
{
char str[256];
char* pch;
int index = 0;
int letter;
printf("Введите предложение\n");
while ((letter = getchar()) != '\n')
{
<span> str[index++] = letter;
</span> }
pch = strtok(str, " ,.-");
while (pch != NULL)
{
if(strcmp(pch, "привет"))
printf("%s\n", pch);
pch = strtok(NULL, " ,.-");
}
return 0;
<span>}
</span>
1)
var
a,b,sum : integer;
begin
Readln(a, b);
if (a mod b = 0) then
begin
while a > 0 do
begin
sum:= sum + (a mod 10);
a:= a div 10;
end;
if sum > b then
begin
Writeln('Верно');
halt;
end;
end;
Writeln('Неверно');
end.
<span>Пример:
</span><span>1234 2
Верно
</span>2)
<span>var
i: integer;
begin
For i:= 100 to 999 do
if (i*i)mod 1000 = i then Write(i, ' ');
end.</span><span>
</span><span>Результат:
376 625
</span>
3)
var
i,n : integer;
function Simple(n: Longint): boolean;
var
i: Longint;
begin
for i := 2 to Round(Sqrt(n)) do
if n mod i = 0 then
break;
Simple := n mod i <> 0;
end;
begin
Read(n);
For i:= 1 to Round(Sqrt(n)) do
if n mod i = 0 then
if (Simple(i))and(Simple(n div i)) then
begin
Writeln('YES');
halt;
end;
Writeln('NO');
end.
<u>Пример:</u>
33
YES
var
x, y, R, Oa, Ob: real;
begin
writeln('Введите радиус окружности R');
readln(R);
writeln('Введите координаты центра окружности');
readln(Oa, Ob);
writeln('Введите координаты точки');
readln(x, y);
if (x > (Oa - R)) and (x < (Oa + R)) and (y > (Ob - R)) and (y < (Ob + R)) then
writeln('Точка с заданными координатами лежит внутри круга')
else
writeln('Точка с заданными координатами лежит вне круга');
end.
Если все правильно, отметь решение как лучшее)
А решить нужно собственно что? Если появится какое то фото, сообщи в комментарии.
1)200 бит
2)1Кбайт=1.000байт=8.000бит
3)Кол-во информации определяется по формуле N=2^b
4)2.000.000 Кбайт
5)1/64 байта