Нужно решить задачу в виде процедуры Паскаль. Даны три вещественных числа. Составить процедуру нахождения целой части числа. Найти сумму чисел которые получились
Смотря какая целочисленная переменная предпологается, их много разновидностей и и у каждой свой размер. (Пример для переменных из PascalABC в приложении) Например целочисленная переменная типа word идеально подходит, займет 2 байта Но более обычно для хранения целочисленных используется integer (Int32) которая занимает 4 байта
Переменные вещественых чисел обычно занимают больше места чем переменные целых, так что этот вариант рассматривать не будем
Строковая. В данном случае 500 занимает 3 символа. Чтобы узнать размер данных нужно знать в какой кодировке предпологается хранение. Стандартно сейчас используются 8битные и 16 битные кодировки, но существуют и другие. 3 * 8 бит = 3 * 1 байт = 3 байта
Вообще целые числа лучше хранить в целочисленных переменных, они под них оптимизированны, потому я за вариант 2
Если i больше 0 делаем 1) i:= i(=5) - 1 = 5-1= 4 2) s:= 0+4(получилось в 1 действии)= 4 i больше 0, повторяем процедуру 1) i:= i(=4 из 1-ого решения) - 1 = 4-1= 3 2) s:= 4( из 1-ого решения) +3= 7 И еще раз 1) i:= i(=3 из 2-ого решения) - 1 = 3-1= 2 2) s:= 7( из 2-ого решения) +2= 7 + 2 = 9 Снова 1) i:= i(=2 из 3-ого решения) - 1 = 2-1= 1 2) s:= 9( из 3-ого решения) +1= 9+1 = 10 И еще 1) i:= i(=1 из 4-ого решения) - 1 = 1-1= 0 2) s:= 10( из 4-ого решения) +0= 10+0 = 10 Так как i= 0, а не больше 0, то алгоритм закончен S= 10
var
a,b,c,sum:real;
procedure cel(var x:real);
begin
x:=trunc(x);
end;
begin
sum:=0;
write('Введите a,b,c: '); readln(a,b,c);
cel(a); cel(b); cel(c);
sum:=sum+a+b+c;
writeln('Сумма: ',sum);
end.