#include <stdio.h>
#include <string.h>
<span>main ( ) {
</span>
char stroka [100] ;
long int n ;
printf ("vvedi chislo n=" ) ;
scanf ( "%ld" , &n ) ;
sprintf ( stroka , "%ld" , n ) ;
printf ("dlina stroki=%d\n" , strlen ( stroka ) ) ;
printf ( "%s\n" , stroka ) ;
}
1. x>=-1&&x<=1
2. x<=-1&&x>=1
3. x<0&&y<0
4. x<0||y<0
5. x>0&&y>0
6. (x<0&&y>0)||(x>0&&y<0)
7.(x!=0)&&(y!=0)&&(z!=0)
8.(x==0)||(y==0)||(z==0)
9.(x!=0)||(y!=0)||(z!=0)
Ми розумні та кмітливі і завжди на позитиві!
PascalABC.NET 3.2 (сборка 1482 от 13.06.17)
Begin
Write('Количество отрицательных чисел: ',ReadSeqReal('Введите три числа:',3).Where(x->x<0).Count)
End.
Var i,s,p,max:integer;
a:array[1..10] of integer; // описание переменных
begin
s:=0;
p:=1;
max:=1;
for i:=1 to 10 do // Цикл в котором находится:
begin
a[i]:=random(100); // генерация рандом чисел
write(a[i]:5); // вывод всего массива
s:=s+a[i]; // нахождение суммы
p:=p*a[i]; // нахождение произведения
end;
for i:=1 to 10 do // цикл для нахождения максимального в массиве
if a[i]>max then max:=a[i];
writeln;
writeln('Summa: ',s); // Все что ниже вывод резельтатов.
writeln('Proizvedenie: ',p);
writeln('Maximalnoe: ',max);
end.