1)
Program n1;
var sum,k,a: integer;
begin
sum:=0;
k:=0;
readln(a);
while a<>0 do
begin
sum:=sum+a;
k:=k+1;
readln(a);
end;
write('сумма: ',sum,'; срзнач: ',sum/k);
end.
2)
Program n2;
var a,c,sum: real;
k: integer;
begin
k:=1;
readln(a,c);
sum:=a;
repeat
sum:=sum+a*0.25;
k:=k+1;
until sum>=c;
write(k);
end.
Var n:integer;
begin
write('Введите двузначное число='); readln(n);
if n mod ((n mod 10)+(n div 10))=0 then Writeln('да, делится')
else Writeln('нет, не делится');
end.
Sqr(cos(b)) + (a*a + b*b + c*c) / (sin(a) + b * cos(b*b)) + e(a + b)
(cos(b) + sin(a)) * sin(a*a) + abs(log(a)) / (sin(a*a*a*a*a) + cos(b*b))
1) переводим число в 2 СС
113,4375 = 1110001,0111
2) находим порядок числа
p=7 (т.к. 7 цифр до запятой)
3) переводим порядок в 2 СС
7 = 111
4) находим машинный порядок
Mp=1000000+p
Mp=1000000+111=1000111
5) записываем число в 4-х байтовой ячейке
сначала машинный порядок (один байт), потом само число (3 байта), оставшееся место в конце заполняем нулями
|0100|0111|1110|0010|1110|0000|0000|0000|
6) переводим каждое число между "|" в 16 СС
47E2E000
Ответ: <span>47E2E000</span>
1) cout<<"" - это вывод в консоль. На экран выведется "3"
2) sqrt() - это квадратный корень. На экран выведется "c=3 x=12".
3) abs() - это взятие модуля. На экран выведется "Suma=28"
4) sqr() - возведение в квадрат. На экран выведется "12100"
5) На экран выведется "x=17"