Program projectwork;
var a, b, c:integer;
d:real;
begin
read (a);
read (b);
read (c);
d:=a+b+c/3;
write ('d=',d);
<span>end.
P.S.Если эта программа находит среднее арифметическое 3 введённых чисел,то </span>d:=(a+b+c)/3;
Господи, зачем так сложно, советую действия со степенями: 512мб переводим в кб, 512 мб = 2^9 мб => 1) 2^9мб * 2^10 = 2^19кб, 2)2^19кб * 2^3 = 2^22 бит.
ответ: 2^22 бит!
Program n1;
var
n, i: integer;
p: real;
begin
write('Введите n: ');
readln(n);
p := 1;
for i := 2 to n do
p := p * i;
writeln(n, '! = ', trunc(p));
end.
идентификация
уточняющая, опознающая
распознает, классифицирует, отождествляет
помогает распознать нужную информацию
сопоставление
<span>1920x1080 расшерение екрана </span>