Var n,sum,sum2,d,ind,i,j:integer; sred :double;
begin
Write('n');
Readln(n);
d:=1;
ind:=3;
sum:=0; sum2:=0;sred:=0;
for i:=0 to ind-1 do
begin
sum:=sum+(n div d) mod 10;
sred:=sum/3;
sum2:=sum2+ sqr((n div d) mod 10);
d:=10*d;
end;
Writeln('suma ',Sum);
Writeln('Sum 2 ',sum2);
writeln('Sred ',sred:0:5);
//Writeln('вывод цифр');
d:=1;
for i:=0 to ind-1 do
begin
writeln((n div d) mod 10);
d:=10*d;
end;
readln;
end.
===== PascalABC.NET =====
begin
ReadSeqInteger('Введите 12 чисел', 12)
.Count(p -> p.InRange(-9, 9)).Println
end.
На любом устройстве, допускающем долговременное хранение данных.
Форма - цифровая, как принято в вычислительной технике, набор битов.
А формат зависит от типа данных и от самой СУБД.
Вот такие общие слова в ответ на общий вопрос. Другого не дать.
#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>
Если вы проходите логику, то он означает дизъюнкцию (логическое сложение), или