PascalABC.NET
#1
begin
var A := Range(1, ReadInteger('n=')).Where(x -> x mod 10 <> 0);
A.Where(x-> x mod (x mod 10) = 0).Println;
end.
#2
function NumSum(number:integer):integer;
begin
NumSum := 0;
while number > 0 do begin
NumSum += number mod 10;
number := number div 10;
end;
end;
begin
var A := Range(100, 999);
A.Where(x -> (x mod 7 = 0) and (NumSum(x) = 7)).Println;
end.
#3
function IsSimple(number:integer):boolean;
begin
IsSimple := number >= 2;
for var i := 2 to trunc(sqrt(number)) do if number mod i = 0 then IsSimple := false
end;
begin
var N := ReadInteger();
Print(IsSimple(N));
end.
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, т.е.
4. Если надо сохранить целое число, большее в 10 раз максимального значения integer, то нужно для поинтересоваться а) Сколько байт отводится под integer? б) есть ли в данной реализации Паскаля целые числа, под хранение которых отводится большее число байт? Когда integer двухбайтовое, следует использовать четырехбайтное longint, а когда четырехбайтное - поинтересоваться наличием восьмибайтного типа int64.