import Foundation
func makeList(_ n: Int) -> [Int] {
return (0..<n).map{ _ in Int.random(in: 1 ... 100) }
}
let list = makeList(15) // [9, 30, 66, 2, 29, 16, 92, 84, 90, 6, 43, 20, 17, 31, 64]
var summ = 0
for number in list {
summ += number
}
print(summ) // 599
var x:integer;
Begin
write('Введите число: '); read(x);
if(x mod 3 = 0) then write('Число кратно трем!') else
write('Число не кратно трем (остаток: '+x mod 3+')');
End.
В одном байте 8 бит, в одном кбайте 1024 байт значит 1 4096