2. 52 div 8 = 6 целое
2+6=8 целое
√8≈2.828 вещественное
trunc(2.828)=2 целое
15 mod 4=3 целое
3/3=1 целое
2-1=1 целое
Ответ: 1, тип целое
3. Максимальное значение integer в языке Паскаль зависит от реализации. Стандарт языка определяет, что под переменную типа integer необходимо отвести объем памяти, достаточный для хранения значения 32767, т.е.
. В связи с этим в ранних реализациях Паскаля под переменные типа integer отводилось 2 байта памяти. В современных реализациях под переменные этого типа отводится 4 байта, поэтому максимальное значение integer может достигать
или <span>
2147483647.
4. Если надо сохранить целое число, большее в 10 раз максимального значения integer, то нужно для поинтересоваться а) Сколько байт отводится под integer? б) есть ли в данной реализации Паскаля целые числа, под хранение которых отводится большее число байт? </span>Когда integer двухбайтовое, следует использовать четырехбайтное longint, а когда четырехбайтное - поинтересоваться наличием восьмибайтного типа int64.
var
a,b,c,count:integer;
begin
count:=0;
readln (a,b,c);
if (a mod 2=0) then count:=count+1;
if (b mod 2=0) then count:=count+1;
if (c mod 2=0) then count:=count+1;
writeln (count);
end.
Высоту можно определить по известной формуле (если проблемы с этим - см. Интернет или задайте вопрос в Геометрии, чтобы формулу вывели):
, где a,b - катеты
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a,b:real;
Write('Введите катеты через пробел: '); Read(a,b);
Writeln('h=',a*b/sqrt(a*a+b*b))
end.
Var a,b,c : real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if (a+b<=c)or(a+c<=b)or(b+c<=a)
then writeln(0)
else if (a<>b)and(b<>c)and(a<>c)
then writeln(1)
else if (a<>b)or(b<>c) then writeln(2)
else writeln(3);
end.
Пример:
a=3
b=3
c=4
2