Program pr;
uses crt;
Var a, b, c, y:real;
Begin
Writeln('Введите a, b, c');
readln(a, b, c);
y:=exp(3*ln(b))+sqrt(c)-sqrt(a);
Writeln('y=', y);
readln;
end.
<span>1)
#include <stdio.h>
int main() {
int a = -1;
while(a != 0)
scanf("%d", &a);
}
2)
<span>#include <stdio.h>
#include <math.h>
int main() {
int a;
scanf("%d", &a);
int prime = 1;
for(int i = 2; i <= sqrt(a)+1; i++)
if(a%i == 0) {
prime = 0;
break;
} if((prime == 0 && a != 2) || a == 1) printf("NO\n");
else printf("YES\n");
}
</span>3)
#include <stdio.h>
int main() {
int a[5];
for(int i = 0; i < 5; i++)
scanf("%d", &a[i]);
for(int i = 0; i < 5; i++)
printf("%d ", a[i]);
printf("\n");
}</span>
<span>а) 111000111 (2) = 455 (10)
б) </span><span>100011011 (2) = 283 (10)
в) </span><span>1001100101 (2) = 613 (10) и 1001 (2) = 9 (10)
г) </span><span>1001001 (2) = 73 (10) и 11 (2) = 3 (10)</span>
В двоичной системе счисления дробного числа быть не может
Const n=10;
var a:array[1..n] of integer;
max,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('max = ',max);
for i:=1 to n do
if a[i]=max then write(i:3);
writeln;
end.
Пример:
Исходный массив:
-6 -9 10 -6 0 0 -8 10 -8 2
max = 10
3 8
2^10=1024
2^6=64
1024*64=65536 бит
1 кбит=8 бит
65536/8=8192 кбит