int main() { setlocale(LC_ALL, "RUSSIAN"); float a; int b; bool flag=false; char str[20]; printf("Введите число >> "); scanf("%f", &a); b = a; float c = a - b; sprintf(str, "%5.3f", c); printf("Дробная часть: %s", str); for (int i = 2; i < 5; i++) { if (str[i] == '0') flag = true; } if (flag == true) printf("\nПервые три цифры дробной части содержат цифру 0"); else printf("\nПервые три цифры дробной части не содержат цифру 0"); printf("\n "); system("pause"); }
Var A:array[1..5] of integer; i,O,P:integer; Begin Write('Введите массив A(5): '); O:=0; P:=0; For i:= 1 to 5 do Begin Read(A[i]); if A[i] < 0 then O:=O+1 else if A[i] > 0 then P:=P+1; End; WriteLn('Количество отрицательных: ',O); WriteLn('Количество положительных: ',P); End.
Заполнение случайными числами:
Const N = 5; Var A:array[1..N] of integer; i,O,P:integer; Begin Randomize; Write('Введите массив A(5):'); O:=0; P:=0; For i:= 1 to N do Begin A[i]:=random(2*N+1)-N; Write(' ',A[i]); if A[i] < 0 then O:=O+1 else if A[i] > 0 then P:=P+1; End; WriteLn; WriteLn('Количество отрицательных: ',O); WriteLn('Количество положительных: ',P); End.
